suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

m

Browse Source
This commit is contained in:
Danny Yoo 2011-03-01 02:56:20 -05:00
parent fb0fb941e3
commit 81b1637a10
1 changed files with 26 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compile.rkt
View File

@ -220,9 +220,15 @@
[operand-codes (map (lambda: ([operand : Expression]) [operand-codes (map (lambda: ([operand : Expression])
(compile operand cenv 'val 'next)) (compile operand cenv 'val 'next))
(App-operands exp))]) (App-operands exp))])
;; FIXME: we need to allocate space for the arguments in the environment.
;; FIXME: we need to compile each operand especially to write to the correct
;; environment location.
;; FIXME: we need to push the control.
;; FIXME: at procedure entry, the arguments need to be installed ;; FIXME: at procedure entry, the arguments need to be installed
;; in the environment. We need to install ;; in the environment. We need to install
;; the closure's values now. ;; the closure's values now.
;;
;; FIXME: if we're calling in tail position, preserve space.
(append-instruction-sequences (append-instruction-sequences
proc-code proc-code
(append-instruction-sequences (append-instruction-sequences