Open eriktorbjorn opened 3 years ago
V-STOP has the following code:
V-STOP
<COND (<EQUAL? ,PRSO <> ,GLOBAL-HERE> <TELL "Hey, no problem." CR>)
Which makes me think that "STOP" is supposed to print "Hey, no problem." But it doesn't:
>STOP HERE Hey, no problem. >STOP (You can't turn off that.)
The STOP syntax is defined as:
STOP
<VERB-SYNONYM STOP PARK> <SYNTAX STOP OBJECT (FIND RMUNGBIT) = V-STOP>
The (FIND RMUNGBIT) thing is to mark OBJECT as optional. The GWIM routine then returns ROOMS. So V-STOP should probably check <EQUAL? ,PRSO ,ROOMS ,GLOBAL-HERE> instead.
(FIND RMUNGBIT)
OBJECT
GWIM
ROOMS
<EQUAL? ,PRSO ,ROOMS ,GLOBAL-HERE>
V-STOPhas the following code:Which makes me think that "STOP" is supposed to print "Hey, no problem." But it doesn't:
The
STOPsyntax is defined as:The
(FIND RMUNGBIT)thing is to markOBJECTas optional. TheGWIMroutine then returnsROOMS. SoV-STOPshould probably check<EQUAL? ,PRSO ,ROOMS ,GLOBAL-HERE>instead.