Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

bugfix in print_function (was reported to the maxima mailing list)

  • Loading branch information...
commit 5e2f98879f020f546f79db90c35862b3d014edc6 1 parent bf74ad4
@andrejv authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  data/wxmathml.lisp
View
3  data/wxmathml.lisp
@@ -1565,7 +1565,8 @@
(args (mapcar (lambda (u)
(cond ((atom u) (symbol-to-string u))
((eq (caar u) 'mlist)
- ($concat "[" (symbol-to-string (cadr u)) "]"))
+ ($concat "[" (symbol-to-string
+ (if (atom (cadr u)) (cadr u) (cadadr u))) "]"))
(t (symbol-to-string (cadr u)))))
(cdr fun))))
(format nil "FUNCTION: ~a$TEMPLATE: ~a(~{<~a>~^, ~})" fun-name fun-name args)))
Please sign in to comment.
Something went wrong with that request. Please try again.