Unverified Commit 0b236ad7 authored by Vladimir Sedach's avatar Vladimir Sedach Committed by GitHub
Browse files

Merge pull request #38 from WarrenWilkinson/master

Move *ps-gensym-counter* to stop compile warning
parents 7fa0c40e 88c814a6
......@@ -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