Skip to content
Browse files

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

  • Loading branch information...
1 parent bf74ad4 commit 5e2f98879f020f546f79db90c35862b3d014edc6 @andrejv committed Dec 28, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 data/wxmathml.lisp
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)))

0 comments on commit 5e2f988

Please sign in to comment.
Something went wrong with that request. Please try again.