This instance will be upgraded to Heptapod 0.25.0 (final) on 2021-09-22 at 15:00 UTC+2 (a few minutes of down time)

Commit 8857894f authored by Jesse McGrew's avatar Jesse McGrew
Browse files

Show pseudo-objects in XOBJ.

parent 41680bdeb88e
......@@ -345,16 +345,18 @@ Args:
(.A <PRINT-ADJ .A>)
(.N <TELL B .N>)
(ELSE <TELL "???">)>>
<VERSION?
(ZIP
<DEFMAC PRINT-ADJ ('A)
<FORM PRINT-MATCHING-WORD .A ,PS?ADJECTIVE ,P1?ADJECTIVE>>)
(ELSE
<DEFMAC PRINT-ADJ ('A)
<FORM TELL B .A>>)>
>
<IFFLAG (<OR DEBUG DEBUGGING-VERBS>
<VERSION?
(ZIP
<DEFMAC PRINT-ADJ ('A)
<FORM PRINT-MATCHING-WORD .A ,PS?ADJECTIVE ,P1?ADJECTIVE>>)
(ELSE
<DEFMAC PRINT-ADJ ('A)
<FORM TELL B .A>>)>
)>
<IFFLAG (<OR DEBUG DEBUGGING-VERBS>
<ROUTINE PRINT-MATCHING-WORD (V PS P1 "AUX" W CNT SIZE)
<COND (<0? .V> <TELL "---"> <RTRUE>)>
......
......@@ -1638,6 +1638,10 @@ Returns:
<DO (I 0 .MAX)
<COND (.I <TELL ", ">)>
<PRINT-OBJREF <GET/B .PT .I>>>)>
<COND (<SET PT <GETP .O ,P?THINGS>>
<CRLF>
<TELL "Pseudos: ">
<PRINT-PSEUDOS .PT>)>
<CRLF>
<TELL "Flags: ">
<DO (I 0 %<VERSION? (ZIP 31) (ELSE 47)>)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment