hg.stevelosh.com > temperance

--- a/src/wam/dump.lisp	Sun Jun 05 00:06:51 2016 +0000
+++ b/src/wam/dump.lisp	Sun Jun 05 12:27:01 2016 +0000
@@ -24,6 +24,8 @@
         (destructuring-bind (functor . arity)
             (wam-functor-lookup wam (cell-value cell))
           (format nil "~A/~D " functor arity)))
+      (+tag-constant+
+        (format nil "~A/0 " (wam-functor-symbol wam (cell-value cell))))
       (t ""))
     (registers-pointing-to wam addr)))
author	Steve Losh <steve@stevelosh.com>
date	Sun, 05 Jun 2016 12:27:01 +0000
parents	17beafee7d45
children	796ef7444a29
branches/tags	(none)
files	src/wam/dump.lisp