github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-24 01:27:33 +00:00
Code Issues Releases Wiki Activity

We don't have LSRTNS.

Browse Source 
Or <USE>, for that matter!
This commit is contained in:
Adam Sampson
2018-05-01 15:59:58 +01:00
parent d85b46d850
commit 286dca3aa5
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/cfs/defs.172
View File

@@ -1,7 +1,7 @@
"(c) Copyright 1978, Massachusetts Institute of Technology. All rights reserved."
<AND <L? ,MUDDLE 100>
; <AND <L? ,MUDDLE 100>
<NOT <OR <LOOKUP "COMPILE" <ROOT>>
<LOOKUP "GROUP-GLUE" <GET INITIAL OBLIST>>>>
<USE "LSRTNS">>

6
src/cfs/rooms.395
View File

@@ -129,7 +129,7 @@
(T .X)>>
<GXUNAME>>>
<DEFINE ITS-GET-NAME (UNAME "AUX" (NM <LSR-ENTRY .UNAME>) CMA JR LFST LLST
; <DEFINE ITS-GET-NAME (UNAME "AUX" (NM <LSR-ENTRY .UNAME>) CMA JR LFST LLST
TLEN TSTR STR)
#DECL ((STR TSTR UNAME) STRING (NM CMA JR) <OR STRING FALSE>
(TLEN LLST LFST) FIX)
@@ -310,7 +310,9 @@
<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 <ITS-GET-NAME .XUNM>>
<SET FN "JRandom">
)
(<SET FN <GET-NAME>>
<COND (<NOT ,TENEX?>
<AND <0? <13 ,OUTCHAN>>