Skip to content
Snippets Groups Projects
Commit 7e2a9dd0 authored by ram's avatar ram
Browse files

Made leaf printing understand the new top-level XEP functionals.

parent 9e55bcc8
No related branches found
No related tags found
No related merge requests found
...@@ -981,7 +981,10 @@ ...@@ -981,7 +981,10 @@
(format stream "lambda ~S ~S" (leaf-name leaf) (format stream "lambda ~S ~S" (leaf-name leaf)
(mapcar #'leaf-name (lambda-vars leaf)))) (mapcar #'leaf-name (lambda-vars leaf))))
(optional-dispatch (optional-dispatch
(format stream "optional-dispatch ~S" (leaf-name leaf))))) (format stream "optional-dispatch ~S" (leaf-name leaf)))
(functional
(assert (eq (functional-kind leaf) :top-level-xep))
(format stream "TL-XEP ~S" (entry-info-name (leaf-info leaf))))))
;;; Block-Or-Lose -- Interface ;;; Block-Or-Lose -- Interface
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment