Output JS operators in lowercase.
authorTravis Cross <tc@traviscross.com>
Mon, 12 May 2008 08:25:26 +0000 (08:25 +0000)
committerTravis Cross <tc@traviscross.com>
Mon, 12 May 2008 08:25:26 +0000 (08:25 +0000)
src/printer.lisp

index 5b6473a..9ab4e28 100644 (file)
@@ -169,7 +169,7 @@ vice-versa.")
         (if (>= (expression-precedence arg) precedence)
             (parenthesize-print arg)
             (ps-print arg))
-        (when remaining (format *ps-output-stream* " ~A " op))))
+        (when remaining (format *ps-output-stream* " ~(~A~) " op))))
 
 (defprinter unary-operator (op arg &key prefix)
   (when prefix (psw op))