? and ?? print mark unless it's %noun

This commit is contained in:
Anton Dyudin 2015-12-07 15:07:27 -08:00
parent af81b18a36
commit 7319bd903f

View File

@ -483,10 +483,11 @@
::
%show
%+ dy-print cay
=+ mar=|.(?:(=(%noun p.cay) ~ [%rose [~ " " ~] >p.cay< ~]~))
?- p.p.mad
0 ~
1 [%rose [~ " " ~] (skol p.q.cay) ~]~ :: [%rose [~ " " ~] >p.cay< ~]
2 [%rose [~ " " ~] (dy-show-type-noun p.q.cay) ~]~
1 [[%rose [~ " " ~] (skol p.q.cay) ~] (mar)]
2 [[%rose [~ " " ~] (dy-show-type-noun p.q.cay) ~] (mar)]
==
==
::