bugfix sometimes missing semicolons when joining js-body

[clinton/parenscript.git] / src / js.lisp

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)