From 379978f8c3be944428a093f1e1f1b0ceb504773d Mon Sep 17 00:00:00 2001 From: Henrik Hjelte Date: Sat, 15 Jul 2006 20:13:44 +0000 Subject: [PATCH] bugfix sometimes missing semicolons when joining js-body --- docs/reference.lisp | 2 +- src/js.lisp | 3 +-- t/reference-tests.lisp | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/docs/reference.lisp b/docs/reference.lisp index 70a718f..0b5ba4b 100644 --- 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 --- 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 --- 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 -- 2.20.1