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

XUNAME is a builtin in our Muddle.

Browse Source 
This means the assembler function in TELL isn't needed. Rename the
colliding function in ROOMS, and use the builtin in CTELL's stub.

(We could get rid of the stub entirely.)
This commit is contained in:
Adam Sampson
2018-05-01 15:57:05 +01:00
parent 004cc1b105
commit d85b46d850
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/cfs/ctell.2
View File

@@ -90,8 +90,8 @@ are never both set (no lowercase or a few other symbols)"
<COND (<G=? .Y 75> <+ 1900 .Y>) (T <+ 2000 .Y>)>
>
<DEFINE GXUNAME () "MTRZORK">
<SETG XUNM "MTRZORK">
<SETG XUNM <XUNAME>>
<DEFINE GXUNAME () ,XUNM>
<SETG SCRIPT-CHANNEL <>>
<DEFINE STARTER () 1>

4
src/cfs/rooms.395
View File

@@ -48,7 +48,7 @@
if that device exists; if not, (sort of) returns directory save file
came from. On its it returns # zorkers currently in existence."
<RANDOM <CHTYPE <DSKDATE> FIX>>
<SETG XUNM <XUNAME>>
<SETG XUNM <FROB-XUNAME>>
<COND (<AND <L? .MUDDLE 100>
<OR <=? ,XUNM "USERS1">
<=? ,XUNM "USERS2">>>
@@ -118,7 +118,7 @@
<OFF ,GC-HAND>
<DEFINE XUNAME ()
<DEFINE FROB-XUNAME ()
#DECL ((VALUE) STRING)
<MAPF ,STRING
<FUNCTION (X)