HCoop
/
clinton
/
parenscript.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8cf7de8
)
Output JS operators in lowercase.
author
Travis Cross
<tc@traviscross.com>
Mon, 12 May 2008 08:25:26 +0000
(08:25 +0000)
committer
Travis Cross
<tc@traviscross.com>
Mon, 12 May 2008 08:25:26 +0000
(08:25 +0000)
src/printer.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/printer.lisp
b/src/printer.lisp
index
5b6473a
..
9ab4e28
100644
(file)
--- a/
src/printer.lisp
+++ b/
src/printer.lisp
@@
-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))