Changeset 17 in CGBLisp

Timestamp:

Jan 27, 2009, 1:02:58 AM (15 years ago)

Author:

Marek Rychlik

Message:

Rewrote poly-eval-1, fixing a bug which prevented parsing constant polynomials correctly.

File:

• trunk/src/parse.lisp (modified) (2 diffs)

trunk/src/parse.lisp

@@ -247 +247 @@
     ((symbolp expr)
      (nth (position expr vars) basis)) 
+    ((eql (car expr ) 'expt)
+     ($poly-expt (poly-eval-1 (cadr expr) vars order ring)
+                 (caddr expr)
+                 n order ring))
     (t
      (let ((r (mapcar
@@ -263 +267 @@
           (reduce #'(lambda (p q) ($poly* p q n order ring)) r))
          (/
-          ($poly/ (car r) (cadr r) ring))
-         (expt
-          ($poly-expt (car r) (cadr r) n order ring)))))))
+          ($poly/ (car r) (cadr r) ring)))))))