Changeset 4408
- Timestamp:
- 2016-06-07T19:48:38-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/infix-printer.lisp
r4405 r4408 47 47 (incf count) 48 48 49 #|50 49 ;; TODO: Determine why this is here and fix it. 51 50 ;; If uncommented, causes (+ x (- y z)) print as "X-Y" … … 54 53 (> count 1) 55 54 (consp arg) 55 (endp (cddr arg)) 56 56 (eq alt-op (car arg))) 57 57 (setf arg (cadr arg) true-sep alt-sep) 58 58 ) 59 |# 59 60 60 61 61 (if beg
Note:
See TracChangeset
for help on using the changeset viewer.