Commit 88c814a6 authored by Warren Wilkinson's avatar Warren Wilkinson
Browse files

Move *ps-gensym-counter* to stop compile warning

parent 56bb022e
......@@ -216,6 +216,8 @@ CL environment)."
;;; lambda wrapping
(defvar *ps-gensym-counter* 0)
(defvar this-in-lambda-wrapped-form? nil)
(defun lambda-wrap (form)
......@@ -298,8 +300,6 @@ form, FORM, returns the new value for *compilation-level*."
(let ((compile-expression? t))
(ps-compile form)))
(defvar *ps-gensym-counter* 0)
(defun ps-gensym (&optional (prefix-or-counter "_JS"))
(assert (or (stringp prefix-or-counter) (integerp prefix-or-counter)))
(let ((prefix (if (stringp prefix-or-counter) prefix-or-counter "_JS"))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment