Changeset View
Changeset View
Standalone View
Standalone View
head/math/maxima/files/extra-patch-src_grind.lisp
Property | Old Value | New Value |
---|---|---|
fbsd:nokeywords | null | yes \ No newline at end of property |
svn:eol-style | null | native \ No newline at end of property |
svn:mime-type | null | text/plain \ No newline at end of property |
--- src/grind.lisp.orig 2019-10-21 03:38:59 UTC | |||||
+++ src/grind.lisp | |||||
@@ -297,12 +297,13 @@ | |||||
(msz nil l r) | |||||
(do ((nl) (w 0)) | |||||
((null (cdr x)) | |||||
- (setq nl (cons (if (stringp (car x)) | |||||
+;; Patch borrowed from SageMath: undoing_true_false_printing_patch | |||||
+ (setq nl (cons (if (atom (car x)) | |||||
(msz (makestring (car x)) l r) | |||||
(msize (car x) l r lop rop)) | |||||
nl)) | |||||
(cons (+ w (caar nl)) (nreverse nl))) | |||||
- (setq nl (cons (if (stringp (car x)) | |||||
+ (setq nl (cons (if (atom (car x)) | |||||
(msz (makestring (car x)) l r) | |||||
(msize (car x) l r lop rop)) | |||||
nl) |