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

tracing down issue with multiple values at the repl.

Browse Source
This commit is contained in:
Danny Yoo 2013-03-05 15:14:41 -07:00
parent 01ac897975
commit 60dda32c2e
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
whalesong/compiler/compiler.rkt
View File

@ -93,24 +93,23 @@
;; Begin a prompted evaluation:
(make-PushControlFrame/Prompt default-continuation-prompt-tag
after-pop-prompt:)
(compile exp '() 'val return-linkage/nontail)
(compile exp '() 'val next-linkage/keep-multiple-on-stack)
;; After coming back from the evaluation, rearrange the return values
;; as a list.
after-pop-prompt-multiple:
(make-TestAndJump (make-TestZero (make-Reg 'argcount)) after-first-seq:)
(make-PushImmediateOntoEnvironment (make-Reg 'val) #f)
after-first-seq:
(make-Perform (make-UnspliceRestFromStack! (make-Const 0) (make-Reg 'argcount)))
(make-AssignImmediate 'val (make-EnvLexicalReference 0 #f))
(make-PopEnvironment (make-Const 1) (make-Const 0))
(make-Goto (make-Label last:))
after-pop-prompt-multiple:
(make-PopEnvironment (make-SubtractArg (make-Reg 'argcount) (make-Const 1))
(make-Const 0))
after-pop-prompt:
(make-PushImmediateOntoEnvironment (make-Reg 'val) #f)
(make-Perform (make-UnspliceRestFromStack! (make-Const 0) (make-Const 1)))
last:
(make-AssignImmediate 'val (make-EnvLexicalReference 0 #f))
(make-PopEnvironment (make-Const 1) (make-Const 0))))))
last:))))