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

8

This commit is contained in:
Kartik K. Agaram 2014-07-31 01:27:52 -07:00
parent c8a8fb6efa
commit c41a0c2739
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mu.arc
View File

@ -20,7 +20,7 @@
(mac m (loc)
`(memory* (,loc 1)))
(def run (instrs (o fn-args) (o otypes))
(def run (instrs (o fn-args) (o fn-oargs))
(ret result nil
(let fn-arg-idx 0
;? (prn instrs)
@ -92,7 +92,7 @@
(m fn-args.idx)))
otype
(= (m oarg.0)
(otypes arg.0))
((fn-oargs arg.0) 0))
jmp
(do (= pc (+ pc arg.0.1)) ; relies on continue still incrementing (bug)
;? (prn "jumping to " pc)
@ -113,7 +113,7 @@
; else user-defined function
(let-or new-body function*.op (prn "no definition for " op)
;? (prn "== " memory*)
(let results (run new-body arg (map car oarg))
(let results (run new-body arg oarg)
(each o oarg
;? (prn o)
(= (m o) (m pop.results)))))