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

may have tracked a very ugly bug with multiple-values again...

Browse Source
This commit is contained in:
Danny Yoo 2011-06-30 19:07:58 -04:00
parent 7117320b1b
commit 49a7be479d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/compiler.rkt
View File

@ -1775,8 +1775,13 @@
,(make-PushEnvironment n (LetVoid-boxes? exp)))) ,(make-PushEnvironment n (LetVoid-boxes? exp))))
body-code body-code
after-body-code after-body-code
;; There may be multiple values coming back at this point.
;; We need to route around those.
(make-instruction-sequence (make-instruction-sequence
`(,(make-PopEnvironment (make-Const n) (make-Const 0)))) `(,(make-PopEnvironment (make-Const n) (make-SubtractArg
(make-Reg 'argcount)
(make-Const 1)))))
after-let)))) after-let))))