X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.lisp;h=149a7779fbb38d971d882b9e9e08aceacc87abaa;hb=4e103a7d0be6bf1e3cd0ed39934afb36e525a243;hp=76ab4a6ebe574a3a1c690b21fe24d8aa1817e66a;hpb=d53e309549e0c6f9fbd061c43de42899ac84fa57;p=jscl.git

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 76ab4a6..149a777 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1412,7 +1412,6 @@
 	(keyword-arguments
 	 (lambda-list-keyword-arguments-canonical lambda-list)))
     (code
-     "var i;" *newline*
      ;; Declare variables
      (mapconcat (lambda (arg)
 		  (let ((var (second (car arg))))
@@ -1439,7 +1438,9 @@
                      (ls-compile (cadr keyarg))
                      ";" *newline*)
                     "}" *newline*)))
-       (mapconcat #'parse-keyword keyword-arguments))
+       (when keyword-arguments
+         (code "var i;" *newline*
+               (mapconcat #'parse-keyword keyword-arguments))))
      ;; Check for unknown keywords
      (when keyword-arguments
        (code "for (i=" (+ 1 n-required-arguments n-optional-arguments)