akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

18 - 'read' renamed to 'arg' and can take an index

This commit is contained in:
Kartik K. Agaram 2014-07-11 21:58:33 -07:00
parent aa0ce16f8b
commit baccb5d569
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
mu.arc
View File

@ -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)