[Killed the feature (js:js* '(let (a b) (+ a b))) => "var a = b; a + b;"
attila.lendvai@gmail.com**20060901160249] {
hunk ./src/js.lisp 1087
-  (let ((single-defvar (make-instance 'js-defvar
-				      :names (mapcar #'js-compile-to-symbol
-						     (remove-if-not #'atom decls))
-				      :value nil))
-	(defvars (mapcar #'(lambda (decl)
-			     (let ((name (first decl))
-				   (value (second decl)))
-			     (make-instance 'js-defvar
-					    :names (list (js-compile-to-symbol name))
-					    :value (js-compile-to-expression value))))
-			 (remove-if #'atom decls))))
+  (let ((defvars (mapcar #'(lambda (decl)
+			     (if (atom decl)
+                                 (make-instance 'js-defvar
+                                       :names (list (js-compile-to-symbol decl))
+                                       :value nil)
+                                 (let ((name (first decl))
+                                       (value (second decl)))
+                                   (make-instance 'js-defvar
+                                                  :names (list (js-compile-to-symbol name))
+                                                  :value (js-compile-to-expression value)))))
+			 decls)))
hunk ./src/js.lisp 1100
-		   :stmts (nconc (when (var-names single-defvar) (list single-defvar))
-				 defvars
+		   :stmts (nconc defvars
}