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

isolated; it's begin0. I need to fix begin0

Browse Source
This commit is contained in:
Danny Yoo 2011-05-18 14:32:29 -04:00
parent 1ab9eeee78
commit 5612573657
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler.rkt
View File

@ -611,6 +611,8 @@
(let ([evaluate-and-save-first-expression (let ([evaluate-and-save-first-expression
(let ([after-first-seq (make-label 'afterFirstSeqEvaluated)]) (let ([after-first-seq (make-label 'afterFirstSeqEvaluated)])
(append-instruction-sequences (append-instruction-sequences
(make-instruction-sequence
`(,(make-Comment "begin0")))
;; Evaluate the first expression in a multiple-value context, and get the values on the stack. ;; Evaluate the first expression in a multiple-value context, and get the values on the stack.
(compile (first seq) cenv 'val next-linkage/keep-multiple-on-stack) (compile (first seq) cenv 'val next-linkage/keep-multiple-on-stack)
(make-instruction-sequence (make-instruction-sequence