diff options
Diffstat (limited to 'impl/chicken.scm')
-rw-r--r-- | impl/chicken.scm | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/impl/chicken.scm b/impl/chicken.scm deleted file mode 100644 index eeb69bd..0000000 --- a/impl/chicken.scm +++ /dev/null | |||
@@ -1,40 +0,0 @@ | |||
1 | ;;; chicanery/impl/chicken -*- geiser-scheme-implementation: chicken -*- | ||
2 | |||
3 | (module chicanery () | ||
4 | (import (scheme base) | ||
5 | (scheme eval) | ||
6 | (srfi 1) | ||
7 | (chicken module)) | ||
8 | (import-for-syntax r7rs) | ||
9 | (reexport (scheme base) | ||
10 | (scheme case-lambda) | ||
11 | (scheme char) | ||
12 | (scheme complex) | ||
13 | (scheme cxr) | ||
14 | (scheme eval) | ||
15 | (scheme file) | ||
16 | (scheme inexact) | ||
17 | (scheme lazy) | ||
18 | (scheme load) | ||
19 | (scheme process-context) | ||
20 | (scheme read) | ||
21 | (scheme repl) | ||
22 | (scheme time) | ||
23 | (scheme write)) | ||
24 | |||
25 | (define env (environment '(only chicken.base exit))) | ||
26 | (##sys#current-environment (##sys#slot env 2)) | ||
27 | (##sys#macro-environment (filter-map | ||
28 | (lambda (e) | ||
29 | (and (list? e) e)) | ||
30 | (##sys#slot env 2))) | ||
31 | (include "../extras.scm") | ||
32 | (export append for-each map | ||
33 | list-append list-for-each list-map | ||
34 | ref copy | ||
35 | atom? | ||
36 | read-port read-port-chunk-size | ||
37 | defined? | ||
38 | with-output-to-string with-input-from-string | ||
39 | displayed ->string written | ||
40 | print)) | ||