Add origin to :ex result.

This commit is contained in:
C. Guy Yarvin 2013-11-23 18:10:24 -08:00
parent 330d6ccae3
commit 2f32666ff7

View File

@ -43,7 +43,7 @@
?- -.dum
%do =+ msg=?:(=(0 p.dum) "remains quietly present" (trip p.dum))
[%leaf "{chr}{nym} {(trip p.dum)}"]
%ex [%rose [" " "" ""] [%leaf "{chr}{(trip p.dum)}"] q.dum ~]
%ex [%rose [" " "" ""] [%leaf "{chr}{nym} {(trip p.dum)}"] q.dum ~]
%qu [%leaf "{chr}{nym}: {(trip p.dum)}"]
==
--