From 04bb06e0eb7010d12b65757209a413f3def12931 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 27 Sep 2018 07:29:20 +0200 Subject: [PATCH] LLOGO loader needs to close INFILE. Or else SUSPEND won't do its job. Probably this wasn't needed when LLOGO was written, but Maclisp changed over time. --- src/llogo/loader.153 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/llogo/loader.153 b/src/llogo/loader.153 index cce5cbe6..833b9d86 100644 --- a/src/llogo/loader.153 +++ b/src/llogo/loader.153 @@ -144,6 +144,8 @@ UUO:/ ) (PRINC (COND ((NUMBERP PURE) (* PURE 2048.)) (0.))) (PUTPROP 'LLOGO (LIST DUMP (READ)) 'VERSION)) (UCLOSE) (PURIFY 0. 0. 'BPORG) + (IF (NOT (EQ INFILE T)) + (CLOSE (PROG1 INFILE (INPUSH -1)))) (SUSPEND (ATOMIZE ':SYMLOD EOL ':PDUMP/ LLOGO/;TS/ DUMP EOL ':KILL/ ))) (DUMP (IOG NIL (PRINC 'VERSION/ NUMBER?/ ) (PUTPROP 'LLOGO (LIST DUMP (READ)) 'VERSION))