Moved the definition of ps-convert-op-name since we compile compile.lisp before print...

diff --git a/src/compiler.lisp b/src/compiler.lisp
index e5f404e..e4b0301 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -279,6 +279,15 @@ the keyword for it."
               (progn (push arg-expr effective-expressions)
                      (setf expressions-subl (rest expressions-subl)))))))))
 
+(defun ps-convert-op-name (op)
+  (case (ensure-ps-symbol op)
+    (and '\&\&)
+    (or '\|\|)
+    (not '!)
+    (eql '\=\=)
+    (=   '\=\=)
+    (t op)))
+
 (defmethod compile-parenscript-form ((form cons) &key (expecting :statement))
   (let* ((name (car form))
          (args (cdr form)))

diff --git a/src/printer.lisp b/src/printer.lisp
index 813b3fe..5b6473a 100644 (file)
--- a/src/printer.lisp
+++ b/src/printer.lisp
@@ -160,15 +160,6 @@ vice-versa.")
   (psw (js-translate-symbol var)))
 
 ;;; arithmetic operators
-(defun ps-convert-op-name (op)
-  (case (ensure-ps-symbol op)
-    (and '\&\&)
-    (or '\|\|)
-    (not '!)
-    (eql '\=\=)
-    (=   '\=\=)
-    (t op)))
-
 (defun parenthesize-print (ps-form)
   (psw #\() (ps-print ps-form) (psw #\)))