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

This commit is contained in:
Danny Yoo 2011-05-18 14:32:29 -04:00
parent 1ab9eeee78
commit 5612573657

View File

@ -611,6 +611,8 @@
(let ([evaluate-and-save-first-expression
(let ([after-first-seq (make-label 'afterFirstSeqEvaluated)])
(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.
(compile (first seq) cenv 'val next-linkage/keep-multiple-on-stack)
(make-instruction-sequence