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

comments

Browse Source
This commit is contained in:
Danny Yoo 2011-03-08 18:34:23 -05:00
parent 683d67038c
commit 5f06c39d67
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compile.rkt
View File

@ -383,18 +383,19 @@
cenv
(make-instruction-sequence
`(,(make-AssignPrimOpStatement
;; optimization: we can put the result directly in the registers, or in
;; the appropriate spot on the stack.
;; Optimization: we put the result directly in the registers, or in
;; the appropriate spot on the stack. This takes into account the popenviroment
;; that happens right afterwards.
(cond [(eq? target 'val)
'val]
[(eq? target 'proc)
'proc]
[(EnvLexicalReference? target)
;; The optimization is right here.
(make-EnvLexicalReference (+ (EnvLexicalReference-depth target) n))])
(make-ApplyPrimitiveProcedure n))
,(make-PopEnvironment n 0))))
after-call))))