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:
committed by
Lars Brinkhoff
parent
5d391987e4
commit
0130a78a49
@@ -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>>
|
||||
|
||||
Reference in New Issue
Block a user