1
0
mirror of https://github.com/PDP-10/its.git synced 2026-02-27 09:18:58 +00:00

Fixed issue with incorrect indefinite name when no antecedent is found.

Fixed issue with the word ISN'T being output incorrectly in a message.
This commit is contained in:
Eric Swenson
2024-08-22 17:37:50 -07:00
parent 82e936b504
commit ae5b1a31b0

View File

@@ -1073,7 +1073,7 @@ TEST-LOOP
(DEFUN NOTELL NIL
(GLOBAL-ERR THAT
ISN
'T
/'T
THE
KIND
OF
@@ -1093,7 +1093,9 @@ TEST-LOOP
;;SINGLE "SAY" PHRASE. "PHRASE" IS A FREE VARIABLE IN
;;LISTNAMES
(PROG (ANS OLD NEW)
(AND (EQUAL PHRASE '(NIL))
(AND (or
(EQUAL PHRASE '(NIL))
(equal phrase nil))
(SETQ PHRASE (CAR ITEM))
(RETURN ITEM))
(SETQ OLD (REVERSE PHRASE))