Changeset 44 in CGBLisp

Timestamp:

Feb 1, 2009, 8:27:24 PM (15 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

trunk/src/ratpoly.lisp

@@ -180 +180 @@
   (case (car p)
     (1  (format stream ")) * ~a" (car vars)))
-    (0  (format stream "))" (car vars)))
+    (0  (format stream "))"))
     (otherwise  
      (format stream ")) * ~a^~d" (car vars) (car p))))