Fix expansion of `(+ 1 x)'.

* module/language/tree-il/primitives.scm (+): Fix typo.

diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm
index bfe9af5..83eab6f 100644 (file)
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -219,12 +219,12 @@
                    (and (number? y) (exact? y) (= y 1))))
             (1+ x)
             (if (and (const? y)
-                 (let ((y (const-exp y)))
-                   (and (number? y) (exact? y) (= y -1))))
+                     (let ((y (const-exp y)))
+                       (and (number? y) (exact? y) (= y -1))))
                 (1- x)
                 (if (and (const? x)
                          (let ((x (const-exp x)))
-                           (and (number? y) (exact? x) (= x 1))))
+                           (and (number? x) (exact? x) (= x 1))))
                     (1+ y)
                     (+ x y))))
   (x y z . rest) (+ x (+ y z . rest)))