docs updated for new setf optimization

diff --git a/docs/manual.pdf b/docs/manual.pdf
index 09fc410..97b4146 100644 (file)
Binary files a/docs/manual.pdf and b/docs/manual.pdf differ

diff --git a/docs/reference.lisp b/docs/reference.lisp
index 1ae0996..eaa45f3 100644 (file)
--- a/docs/reference.lisp
+++ b/docs/reference.lisp
@@ -505,7 +505,7 @@ a-variable  => aVariable
 
 (setf a (1+ a))          => a++
 
-(setf a (* 2 3 4 a 4 a)) => a *= 2 * 3 * 4 * 4 * a
+(setf a (+ a 2 3 4 a))   => a += 2 + 3 + 4 + a
 
 (setf a (- 1 a))         => a = 1 - a
 

diff --git a/t/reference-tests.lisp b/t/reference-tests.lisp
index 6605624..1174caf 100644 (file)
--- a/t/reference-tests.lisp
+++ b/t/reference-tests.lisp
@@ -265,8 +265,8 @@ x = a + b + c;")
   "a++")
 
 (test-ps-js assignment-4
-  (setf a (* 2 3 4 a 4 a))
-  "a *= 2 * 3 * 4 * 4 * a")
+  (setf a (+ a 2 3 4 a))
+  "a += 2 + 3 + 4 + a")
 
 (test-ps-js assignment-5
   (setf a (- 1 a))

diff --git a/t/test.lisp b/t/test.lisp
index 3b7130e..b57bf97 100644 (file)
--- a/t/test.lisp
+++ b/t/test.lisp
@@ -100,6 +100,7 @@ x = 2 + sideEffect() + x + 5;")
 (test-ps-js method-call-lambda-call
             (.to-string ((lambda (x) (return x)) 10))
             "(function (x) {return x;})(10).toString()")
+
 (test no-whitespace-before-dot
   (let* ((str (js:js* '(.to-string ((lambda (x) (return x)) 10))))
          (dot-pos (position #\. str :test #'char=))