Top-level expression shouldn't be in tail position since clean-up code needs to run.

Author: dvanhorn

langs/jig/compile.rkt

@@ -19,7 +19,7 @@
            (Label 'entry)
            (Push rbx)    ; save callee-saved register	   
            (Mov rbx rdi) ; recv heap pointer
-           (compile-e e '() #t)
+           (compile-e e '() #f)
            (Pop rbx)     ; restore callee-save register
            (Ret)
            (compile-defines ds)

langs/knock/compile.rkt

@@ -19,7 +19,7 @@
            (Label 'entry)
            (Push rbx)    ; save callee-saved register	   
            (Mov rbx rdi) ; recv heap pointer
-           (compile-e e '() #t)
+           (compile-e e '() #f)
            (Pop rbx)     ; restore callee-save register
            (Ret)
            (compile-defines ds)

langs/loot/compile.rkt

@@ -20,7 +20,7 @@
            (Push rbx)    ; save callee-saved register	   
            (Mov rbx rdi) ; recv heap pointer
            (compile-defines-values ds)
-           (compile-e e (reverse (define-ids ds)) #t)
+           (compile-e e (reverse (define-ids ds)) #f)
            (Add rsp (* 8 (length ds))) ;; pop function definitions
            (Pop rbx)     ; restore callee-save register
            (Ret)

langs/mountebank/compile.rkt

@@ -28,7 +28,7 @@
            (Mov rbx rdi) ; recv heap pointer
            (init-symbol-table p)
            (compile-defines-values ds)
-           (compile-e e (reverse (define-ids ds)) #t)
+           (compile-e e (reverse (define-ids ds)) #f)
            (Add rsp (* 8 (length ds))) ;; pop function definitions
            (Pop rbx)     ; restore callee-save register
            (Ret)

langs/mug/compile.rkt

@@ -28,7 +28,7 @@
            (Mov rbx rdi) ; recv heap pointer
            (init-symbol-table p)
            (compile-defines-values ds)
-           (compile-e e (reverse (define-ids ds)) #t)
+           (compile-e e (reverse (define-ids ds)) #f)
            (Add rsp (* 8 (length ds))) ;; pop function definitions
            (Pop rbx)     ; restore callee-save register
            (Ret)

langs/neerdowell/compile.rkt

@@ -28,7 +28,7 @@
            (Mov rbx rdi) ; recv heap pointer
            (init-symbol-table p)
            (compile-defines-values ds)
-           (compile-e e (reverse (define-ids ds)) #t)
+           (compile-e e (reverse (define-ids ds)) #f)
            (Add rsp (* 8 (length ds))) ;; pop function definitions
            (Pop rbx)     ; restore callee-save register
            (Ret)