diff options
| -rw-r--r-- | mu.arc | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/mu.arc b/mu.arc index 934d480c..67225100 100644 --- a/mu.arc +++ b/mu.arc @@ -54,18 +54,12 @@ (memory* oarg.1.1) (mod (memory* arg.0.1) (memory* arg.1.1))) arg -;? (do (prn "arg " arg " fn-arg " fn-arg-idx) - (if arg -;? (do (prn "arg " arg) - (= (memory* oarg.0.1) - (memory* ((fn-args arg.0) 1))) -;? ) -;? (do (prn "no arg; using " fn-arg-idx " " fn-args.fn-arg-idx) - (= (memory* oarg.0.1) - (memory* fn-args.fn-arg-idx.1)) - (++ fn-arg-idx)) -;? ) -;? ) + (let idx (if arg + arg.0 + (do1 fn-arg-idx + ++.fn-arg-idx)) + (= (memory* oarg.0.1) + (memory* fn-args.idx.1))) jmp (do (= pc arg.0.1) ;? (prn "jumping to " pc) |