1
0
mirror of https://github.com/PDP-10/its.git synced 2026-03-04 18:54:08 +00:00

Calling GET-ITS-NAME in Zork crashes.

Unknown reason for now.  Dropping it works fine.
This commit is contained in:
Eric Swenson
2023-02-22 15:04:36 +01:00
committed by Lars Brinkhoff
parent 5d391987e4
commit 0130a78a49

View File

@@ -1,4 +1,3 @@
"(c) Copyright 1978, Massachusetts Institute of Technology. All rights reserved."
"GUTS OF FROB: BASIC VERBS, COMMAND READER, PARSER, VOCABULARY HACKERS."
@@ -310,7 +309,7 @@
<SETG INTIME <DSKDATE>>
<COND (<L? .MUDDLE 100>
<AND <G? <LENGTH .XUNM> 2> <=? <SUBSTRUC .XUNM 0 3> "___"> <QUIT>>
<SET FN <ITS-GET-NAME .XUNM>>)
<SET FN .XUNM>)
(<SET FN <GET-NAME>>
<COND (<NOT ,TENEX?>
<AND <0? <13 ,OUTCHAN>>