Updated operator-precedence to handle more cases.

[clinton/parenscript.git] / src / printer.lisp

diff --git a/src/printer.lisp b/src/printer.lisp
index e9d66c7..7795603 100644 (file)
--- a/src/printer.lisp
+++ b/src/printer.lisp
@@ -88,8 +88,11 @@ vice-versa.")
 (defun expression-precedence (expr)
   (if (consp expr)
       (case (car expr)
+        (js-aref (op-precedence 'js-aref))
+        (js-slot-value (op-precedence 'js-slot-value))
         (js-assign (op-precedence '=))
         (js-expression-if (op-precedence 'js-expression-if))
+        (unary-operator (op-precedence (second expr)))
         (operator (op-precedence (second expr)))
         (otherwise 0))
       0))