bugfix sometimes missing semicolons when joining js-body

diff --git a/docs/reference.lisp b/docs/reference.lisp
index 70a718f..0b5ba4b 100644 (file)
--- a/docs/reference.lisp
+++ b/docs/reference.lisp
@@ -738,7 +738,7 @@ a-variable  => aVariable
           tmpI2 = tmpI2 + 1) {
           var l = tmpArr1[tmpI2];
           document.write('L is ' + l);
-        }
+        };
       }
 
 

diff --git a/src/js.lisp b/src/js.lisp
index bc573b8..66acbb2 100644 (file)
--- a/src/js.lisp
+++ b/src/js.lisp
@@ -103,8 +103,7 @@
   (flet ((special-append (form elt)
           (let ((len (length form)))
             (if (and (> len 0)
-                     (member (char form (1- len))
-                             '(#\; #\, #\})))
+                      (string= (char form (1- len)) elt))
                 form
                 (concatenate 'string form elt)))))
     (cond ((stringp form)

diff --git a/t/reference-tests.lisp b/t/reference-tests.lisp
index b010ad4..f509cc7 100644 (file)
--- a/t/reference-tests.lisp
+++ b/t/reference-tests.lisp
@@ -385,7 +385,7 @@ x = a + b + c;")
     tmpI2 = tmpI2 + 1) {
     var l = tmpArr1[tmpI2];
     document.write('L is ' + l);
-  }
+  };
 }")
 
 (test-ps-js iteration-constructs-4