From 81640cd59445ddcaad64baa46db6b9cd04bbdbb3 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sun, 24 May 2026 15:30:54 -0700
Subject: [PATCH] Make sure that the {MEDLEY} pseudohost defaults to DSK

---
 sources/MEDLEYDIR      |  13 ++++++++-----
 sources/MEDLEYDIR.LCOM | Bin 6696 -> 6760 bytes
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index f199c97f..627983f0 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "21-May-2026 13:42:57" {MEDLEY}<sources>MEDLEYDIR.;62
 15842  
+
(FILECREATED "23-May-2026 22:51:27" {MEDLEY}<sources>MEDLEYDIR.;63
 15934  
 
       :EDIT-BY rmk
 
@@ -71,7 +71,7 @@
 (DEFINEQ
 
 (MEDLEY-INIT-VARS

-  [LAMBDA (EVENT)
                                            (* ; "Edited 21-May-2026 13:40 by rmk")


+  [LAMBDA (EVENT)
                                            (* ; "Edited 21-May-2026 19:01 by rmk")


                                                              (* ; "Edited 15-Apr-2026 16:44 by rmk")


                                                              (* ; "Edited 22-Nov-2022 20:38 by FGH")


                                                              (* ; "Edited 21-Nov-2022 17:31 by FGH")


@@ -100,7 +100,10 @@
                                                                 (* ;; 
 
                                       "Any old values, restore them, substituting the new MEDLEYDIR")

 
-             (PSEUDOHOST 'MEDLEY (UNIX-GETENV "MEDLEYDIR"))
+             (PSEUDOHOST 'MEDLEY (PACKFILENAME 'BODY)
+                    (UNIX-GETENV "MEDLEYDIR")
+                    'HOST
+                    'DSK)
              (PROG (OLDMD NEWMD SAME TMP)
                    (IF
 (EQ \SAVE.MEDLEYDIR T)
                        THEN
                                  (* ; " Already restored")

@@ -286,6 +289,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4215 13571 (MEDLEY-INIT-VARS 4225 . 7981) (MEDLEYDIR 7983 . 12371) (MEDLEYSUBSTDIR 
-12373 . 13351) (SET-SYSOUT-COMMIT 13353 . 13569)))))
+  (FILEMAP (NIL (4215 13663 (MEDLEY-INIT-VARS 4225 . 8073) (MEDLEYDIR 8075 . 12463) (MEDLEYSUBSTDIR 
+12465 . 13443) (SET-SYSOUT-COMMIT 13445 . 13661)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index 276baa23510e0de76afe202c3be8c291b04bcdf6..36af86e03cebc3385c2ecae79aa8155a77b876e5 100644
GIT binary patch
delta 549
zcmZvYt4{+#5XQNNLJ+8W7z}Rd?c<(?Tzf;g^j_TVUD|-bfIy&8NG#1s6b^wQNOb=f
z3<(a)^(g5z?TX24zM0?m?Y@Xl@i^*m5?$UArZW>5a}DY;dvep&_~hwfjb@c^+Ws~N
zYB*e!=h{?zE)QBChp*Qg)v3$Qth=3+x?2dl?eeQNy%#!%u0*AhwD3aUjty8h7KI4?
z5XXLy0q4%r6c=+*<~^zE32OZ<vTCs(x~>eOG(;j*7Q_RBXL&_uCT~EQp@W%|z9+GI
ztbkNv?kA^-RKRo_@;Dfg0V<3OpjE8Y>km(Y5MwXGve?|a7gWH7^a?y`1hxNTlOPTh
zDZESqx6FnuH<xaP1%nJx0k7h$;Ph1s=9rM7#H%W%WzE42H&ziBftXlB;B3W-Q5$?Y
a1V%a3UqBrWy~H1v$L;SH)8FaVPv;kTMu>6%

delta 449
zcmZvXJx{|x42DSvAlOg_B#^+chvs~D`REqNsYGg%DtC#BU}0ilK#WL89a$KtZeZXK
zuvU!B{V$ActRzs0G~mIqW&3$wzq1$iII@W|xVUxDMGpw=GVF4Ha@8?#@_hf_Oizuy
zH3Y%~hWgBy84r5jeA|4wT&m)_PV05r(B|??(Ey<%g;LqDjQT)*AH;XTT^NYCFHYkm
z2TFp4Ekfr*SsY1KZ(!*C93pr1j<xMEY}_M;P&mht6o4*;p%g`&on%r02?Hq7WaRXO
z5^1ULtlcddQaG1UDGnPBJXcRGd(3$QOW8t4J?P~^D4>;G8-T%IDEb_7QGE}{y*bxO
j(nL9BluN)0`0D_%0vxn#At7xgJzn`RN%(rR`e}awwLx-r