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

Fixed ENTRY node printing to know about new entry node format.

parent 528e1a4c
No related branches found
No related tags found
No related merge requests found
......@@ -1039,8 +1039,7 @@
(format t "return c~D " (cont-num (return-result node)))
(print-leaf (return-lambda node)))
(entry
(format t "entry")
(mapc #'print-continuation (entry-exits node)))
(format t "entry ~S" (entry-exits node)))
(exit
(let ((value (exit-value node)))
(cond (value
......
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