Update run-medley

Author: masinter

run-medley

@@ -32,7 +32,9 @@ setenv OSVERSION `uname -r`
 
 # Directory variables are accessible from Lisp via UNIX-GETENV
 
-setenv MEDLEYDIR "$HOME/medley"
+if (! $?MEDLEYDIR ) setenv MEDLEYDIR "$HOME/medley"
+if (! $?MAIKODIR )  setenv MAIKODIR $MEDLEYDIR/../maiko
+
 setenv LDEINIT "$MEDLEYDIR/initfiles/local-init"
 
 
@@ -133,12 +135,13 @@ else
 endif
 
 if ($?LDEDESTSYSOUT) then
-else if (-f /$HOSTNAME/$LOGNAME/lisp.virtualmem) then
+  if (-f /$HOSTNAME/$LOGNAME/lisp.virtualmem) then
    setenv LDEDESTSYSOUT /$HOSTNAME/$LOGNAME/lisp.virtualmem
-else if (-f ~/lisp.virtualmem) then
+  else if (-f ~/lisp.virtualmem) then
    setenv LDEDESTSYSOUT ~/lisp.virtualmem
-else if (-d /$HOSTNAME/$LOGNAME) then
+  else if (-d /$HOSTNAME/$LOGNAME) then
    setenv LDEDESTSYSOUT /$HOSTNAME/$LOGNAME/lisp.virtualmem
+  endif
 endif
 
 if (! $?LDESRCESYSOUT) then
@@ -180,8 +183,10 @@ echo "using emulator version $version"
    case "3.5":
    case "3.501":
 
-set path = ($MEDLEYDIR/maiko/bin $MEDLEYDIR/../maiko/bin $path)
-set path = ($MEDLEYDIR/../maiko/`osversion`/`machintype` $path)
+setenv PATH .:$PATH
+pushd $MAIKODIR/bin
+setenv PATH $MAIKODIR/`osversion`.`machinetype`:$PATH
+popd
 
 #	if ${?DISPLAY} then	 # we are running under X
 	     $prog $mem $geometry $ICONSPEC