mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-20 22:29:16 +02:00
16 lines
428 B
Scheme
16 lines
428 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)))))
|