Reset {MEDLEY} pseudohost on restart (#2623)

(PSEUDOHOST 'MEDLEY (UNIX-GETENV "MEDLEYDIR")) 
is updated entry on AROUNDEXITFNS

sources/MEDLEYDIR

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "26-Apr-2026 20:46:52" {WMEDLEY}<sources>MEDLEYDIR.;61
 15717  
+
(FILECREATED "21-May-2026 13:42:57" {MEDLEY}<sources>MEDLEYDIR.;62
 15842  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS MEDLEYDIRCOMS)
+      :CHANGES-TO (FNS MEDLEY-INIT-VARS)
 
-      :PREVIOUS-DATE "26-Apr-2026 14:56:00" {WMEDLEY}<sources>MEDLEYDIR.;60)
+      :PREVIOUS-DATE "26-Apr-2026 20:46:52" {MEDLEY}<sources>MEDLEYDIR.;61)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -71,7 +71,8 @@
 (DEFINEQ
 
 (MEDLEY-INIT-VARS

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


+  [LAMBDA (EVENT)
                                            (* ; "Edited 21-May-2026 13:40 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")


                                                            (* ; "Edited 21-Nov-2022 15:39 by frank")


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

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

@@ -285,6 +286,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4215 13446 (MEDLEY-INIT-VARS 4225 . 7856) (MEDLEYDIR 7858 . 12246) (MEDLEYSUBSTDIR 
-12248 . 13226) (SET-SYSOUT-COMMIT 13228 . 13444)))))
+  (FILEMAP (NIL (4215 13571 (MEDLEY-INIT-VARS 4225 . 7981) (MEDLEYDIR 7983 . 12371) (MEDLEYSUBSTDIR 
+12373 . 13351) (SET-SYSOUT-COMMIT 13353 . 13569)))))
 STOP