Revise slot-value fix to not print useless parens.

Now prints: "foo.bar.baz" rather than "(foo.bar).baz"

diff --git a/src/printer.lisp b/src/printer.lisp
index 5bc3639..c1ec4a8 100644 (file)
--- a/src/printer.lisp
+++ b/src/printer.lisp
@@ -245,7 +245,7 @@ vice-versa.")
   (psw " }"))
 
 (defprinter js-slot-value (obj slot)
-  (if (>= (expression-precedence obj) #.(op-precedence 'js-slot-value))
+  (if (> (expression-precedence obj) #.(op-precedence 'js-slot-value))
       (parenthesize-print obj)
       (ps-print obj))
   (if (and (listp slot) (eql 'ps-quote (car slot)))