From: David Vázquez <davazp@gmail.com>
Date: Fri, 5 Jul 2013 02:03:30 +0000 (+0200)
Subject: Fix temporal bug in tagbody
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=cc9bfaaeac5cb2c37e718080ed0e1a923f4a1d3f;p=jscl.git

Fix temporal bug in tagbody
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index a6f435f..23752c6 100644
--- 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)