Changeset 102 in CGBLisp

Timestamp:

Feb 3, 2009, 3:16:43 AM (15 years ago)

Author:

Marek Rychlik

Message:

Fixed parsing zero expressions.

File:

• trunk/src/parse.lisp (modified) (1 diff)

trunk/src/parse.lisp

@@ -287 +287 @@
 internal form."
   (cond
-   ((numberp expr) (list (cons (make-list (length vars) :initial-element 0) expr)))
+   ((numberp expr)
+    (unless (zerop expr)
+      (list (cons (make-list (length vars) :initial-element 0) expr))))
    ((or (symbolp expr) (not (eq (car expr) :[)))
     (poly-eval-1 expr vars order ring))