| 26 | | # NOTE: This code may be plausible and it may be terrible. |
| 27 | | # It's late and I wanted to try writing some L1. |
| 28 | | c_arg INTERP |
| 29 | | c_arg key |
| 30 | | c_return nextkey |
| 31 | | find_cfunc $P0, 'next_key' |
| 32 | | call_cfunc $P0 |
| | 26 | # NOTE: This code may be plausible and it may be terrible. It's just an idea. |
| | 27 | # Also, it's late and I wanted to try writing some L1. |
| | 28 | c_arg INTERP #set INTERP as the first arg to whatever function is called next |
| | 29 | c_arg key #set key to the second arg |
| | 30 | c_return nextkey #stick the return value into nextkey |
| | 31 | find_cfunc $P0, 'next_key' #find the function or get it from a cache or something |
| | 32 | call_cfunc $P0 #call it! |
