Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +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) (define (load file . o)
(let* ((env (if (pair? o) (car o) (interaction-environment))) (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 *shared-object-extension*)
(ext-len (string-length ext))) (ext-len (string-length ext)))
(cond (cond
@ -1284,15 +1284,16 @@
(dynamic-wind (dynamic-wind
(lambda () (set-current-environment! env)) (lambda () (set-current-environment! env))
(lambda () (lambda ()
(call-with-input-file file (let ((in (if (port? file) file (open-input-file file))))
(lambda (in) (set-port-line! in 1)
(set-port-line! in 1) (let lp ((res (if #f #f)))
(let lp () (let ((x (read in)))
(let ((x (read in))) (cond
(cond ((eof-object? x)
((not (eof-object? x)) (if (not (port? file))
(eval x env) (close-input-port in)))
(lp)))))))) (else
(lp (eval x env))))))))
(lambda () (set-current-environment! old-env)))))))) (lambda () (set-current-environment! old-env))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;