mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
15 lines
423 B
Scheme
15 lines
423 B
Scheme
(define-library (scheme load)
|
|
(export load)
|
|
(import (scheme base)
|
|
(scheme eval)
|
|
(scheme file)
|
|
(scheme read))
|
|
(begin
|
|
(define (load filename . env)
|
|
(let ((exprs (call-with-input-file filename
|
|
(lambda (port)
|
|
(read-all port)))))
|
|
(for-each
|
|
(lambda (expr)
|
|
(apply eval (cons expr env)))
|
|
exprs)))))
|