Fix temporal bug in tagbody

diff --git a/src/compiler.lisp b/src/compiler.lisp
index a6f435f..23752c6 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -857,11 +857,15 @@
                   (try
                    (switch ,(make-symbol branch)
                            ,@(with-collect
+                              (collect `(case ,initag))
                               (dolist (form (cdr body))
                                 (if (go-tag-p form)
                                     (let ((b (lookup-in-lexenv form *environment* 'gotag)))
                                       (collect `(case ,(second (binding-value b)))))
-                                    (collect (ls-compile form)))))
+                                    (progn
+                                      (collect (ls-compile form))
+                                      ;; TEMPORAL!
+                                      (collect '(code ";"))))))
                            default
                            (break tbloop)))
                   (catch (jump)