1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!r6rs
;; Copyright 2010 Derick Eddington. My MIT-style license is in the file named
;; LICENSE from the original collection this file is distributed with.
(import
(except (rnrs) error)
(rnrs mutable-strings)
(srfi :23 error)
(srfi private include)
(srfi :42 eager-comprehensions))
(define (my-open-output-file filename)
(open-file-output-port filename
(file-options no-fail)
'block
(native-transcoder)))
(define (my-call-with-input-file filename thunk)
(call-with-input-file filename thunk))
(include/resolve ("srfi" "%3a42") "examples.scm")
|
