X-Git-Url: http://git.hcoop.net/clinton/parenscript.git/blobdiff_plain/cb1e91d099536066445fe9d7ac1b04cdbb44b0fa..1222b32336206004f87df6676d3f96d512b122ce:/src/printer.lisp

diff --git a/src/printer.lisp b/src/printer.lisp
index e9d66c7..7795603 100644
--- 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))