mirror of
https://github.com/PDP-10/its.git
synced 2026-02-26 17:03:20 +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:
@@ -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))
|
||||
Reference in New Issue
Block a user