github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-15 16:07:01 +00:00
Code Issues Releases Wiki Activity

LLOGO loader needs to close INFILE.

Browse Source 
Or else SUSPEND won't do its job.  Probably this wasn't needed when
LLOGO was written, but Maclisp changed over time.
This commit is contained in:
Lars Brinkhoff 2018-09-27 07:29:20 +02:00
parent 622009105a
commit 04bb06e0eb
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/llogo/loader.153
View File

@ -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))