Revert "Fix sysout makesys to make new versions (#277 )" (#293 )

This reverts commit 3409522d67.
Revert "Checktran called from outside block, remove one blockcompile (#278 )" (#292 )
2026-03-19 08:24:48 +00:00 · 2021-03-22 09:56:33 -07:00 · 2021-03-22 09:45:31 -07:00 · 2021-03-22 09:33:55 -07:00 · 2021-03-22 09:31:52 -07:00 · 2021-03-19 18:15:18 -07:00
8 changed files with 11 additions and 7 deletions
--- a/internal/library/MEDLEY-UTILS
+++ b/internal/library/MEDLEY-UTILS
--- a/internal/library/MEDLEY-UTILS.LCOM
+++ b/internal/library/MEDLEY-UTILS.LCOM
--- a/obsolete/sources/MAPATOMS
+++ b/obsolete/sources/MAPATOMS
--- a/obsolete/sources/MAPATOMS.LCOM
+++ b/obsolete/sources/MAPATOMS.LCOM
--- a/obsolete/sources/MAPATOMS.~2~
+++ b/obsolete/sources/MAPATOMS.~2~
--- a/12
+++ b/12
@@ -172,12 +172,16 @@ export PATH="$MAIKODIR"/`osversion`.`machinetype`:"$oldpath"

 cd "$OLDPWD"

-echo "sysout is $LDESRCESYSOUT"
-echo "running `which $prog` $geometry $screensize $mem"
-echo "start $LDEINIT"
+if ! command -v "$prog" > /dev/null 2>&1; then
+    echo "$prog" not found
+    exit 1
+fi
+
+echo "running: $prog $geometry $screensize $mem $passthrough_args $LDESRCESYSOUT"
+echo "greet: $LDEINIT"

 export INMEDLEY=1

-$prog $geometry $screensize $mem -t "Medley Interlisp" $passthrough_args "$LDESRCESYSOUT"
+"$prog" $geometry $screensize $mem -t "Medley Interlisp" $passthrough_args "$LDESRCESYSOUT"


--- a/scripts/loadup-init.sh
+++ b/scripts/loadup-init.sh
@@ -14,5 +14,5 @@ mkdir -p "$MEDLEYDIR/tmp"
 ./run-medley $scr -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP -full

 echo ---- made ----
-ls -l tmp
+ls -l tmp/*[WMShlet]
 echo --------------
--- a/scripts/loadup-lisp-from-mid.sh
+++ b/scripts/loadup-lisp-from-mid.sh
@@ -13,6 +13,6 @@ scr="-sc 1024x768 -g 1042x790"
 ./run-medley $scr -greet $MEDLEYDIR/sources/LOADUP-LISP.CM tmp/init-mid.sysout

 echo ----- created: -------
-ls -l tmp/lisp.sysout tmp/lisp.dribble
+ls -l tmp/lisp.*[te]
 echo ----------------------
Author	SHA1	Message	Date
Larry Masinter	3c33ba0b7e	Revert "Fix sysout makesys to make new versions (#277 )" (#293 ) This reverts commit `3409522d67`.	2021-03-22 09:56:33 -07:00
Larry Masinter	489642573d	Revert "Checktran called from outside block, remove one blockcompile (#278 )" (#292 ) This reverts commit `ada3a6391a`.	2021-03-22 09:45:31 -07:00
Larry Masinter	ada3a6391a	Checktran called from outside block, remove one blockcompile (#278 )	2021-03-22 09:33:55 -07:00
Larry Masinter	3409522d67	Fix sysout makesys to make new versions (#277 ) * Fix sysout makesys to make new versions * redoing some lost edits * add new loadups	2021-03-22 09:31:52 -07:00
Larry Masinter	c2afb8265b	Undid prior attempt to optimize (#283 )	2021-03-19 18:15:18 -07:00
Nick Briggs	558f4c6655	Loadup failure ldeinit (#286 ) * a litte better info and checking * fix typo Co-authored-by: Larry Masinter <LMM@acm.org>	2021-03-19 15:45:20 -07:00
Larry Masinter	9975e44b0a	MAPATOMS contains an older definition (by a few hours) than fn in LLBASIC (#256 )	2021-03-19 12:45:29 -07:00