Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix include-ci (issue #687)

Browse source
This commit is contained in:
Alex Shinn 2020-08-23 00:23:27 +09:00
parent b89db31e37
commit e307c872bf
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lib/init-7.scm
View file

@ -1273,7 +1273,7 @@
(define (load file . o)
(let* ((env (if (pair? o) (car o) (interaction-environment)))
(len (string-length file))
(len (if (port? file) 0 (string-length file)))
(ext *shared-object-extension*)
(ext-len (string-length ext)))
(cond
@ -1284,15 +1284,16 @@
(dynamic-wind
(lambda () (set-current-environment! env))
(lambda ()
(call-with-input-file file
(lambda (in)
(set-port-line! in 1)
(let lp ()
(let ((x (read in)))
(cond
((not (eof-object? x))
(eval x env)
(lp))))))))
(let ((in (if (port? file) file (open-input-file file))))
(set-port-line! in 1)
(let lp ((res (if #f #f)))
(let ((x (read in)))
(cond
((eof-object? x)
(if (not (port? file))
(close-input-port in)))
(else
(lp (eval x env))))))))
(lambda () (set-current-environment! old-env))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;