From 5612573657315627c080b58bbf3398a4d84bfdc7 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Wed, 18 May 2011 14:32:29 -0400
Subject: [PATCH] isolated; it's begin0.  I need to fix begin0

---
 compiler.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler.rkt b/compiler.rkt
index 75cd3ef..385c1c6 100644
--- a/compiler.rkt
+++ b/compiler.rkt
@@ -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