github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-30 13:42:06 +00:00
Code Issues Releases Wiki Activity

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

Browse Source 
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 d5ba80de0d
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/shrdlu/newans.82 → src/shrdlu/newans.83
View File

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