blob: 3a179c11d062ce9a21772d74769981a100387dce (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(cond-expand
(chicken
(include "impl/chicken.scm"))
(guile
(install-r7rs!)
(include "impl/guile.scm")
(include "extras.scm")
(export! append for-each map
list-append list-for-each list-map
ref copy
atom?
read-port read-port-chunk-size
defined?
with-output-to-string with-input-from-string
displayed ->string written
print))
(gambit
(include "impl/gambit.scm"))
(r7rs
(display "R7RS!\n")
(define-library (chicanery)
(include "impl/r7rs.scm")))
(else (exit #f)))
|
