[Heavy] Fix call at top level

Author: ricejasonf

heavy/lib/OpGen.cpp

@@ -138,6 +138,10 @@ void OpGen::createLoadModule(heavy::SourceLocation Loc,
 }
 
 mlir::Value OpGen::GetSingleResult(heavy::Value V) {
+  // Ensure we are no longer top level.
+  if (!TopLevelOp)
+    InsertTopLevelCommandOp(Context.getLoc());
+
   TailPosScope TPS(*this);
   IsTailPos = false;
   mlir::Value Result = Visit(V);

heavy/test/Evaluate/begin.scm

@@ -9,3 +9,13 @@
   (newline)
   (write 'bar)
   (newline))
+
+; CHECK: 56
+(define-syntax my-begin
+  (syntax-rules ()
+    ((my-begin x y)
+     (begin
+        (write x)
+        (write y)
+        (newline)))))
+(my-begin 5 6)

heavy/test/Evaluate/define-syntax.scm

@@ -90,16 +90,3 @@
   (my-define not-my-local 12)
   (write not-my-local)
   (newline)))
-
-; FIXME
-; COM:CHECK: 5 6
-#;(define-syntax blah
-  (syntax-rules ()
-    ((blah x y)
-     ((begin
-        (write x)
-        (write " ")
-        (write y)
-        (newline))))))
-;(blah 5 6)
-