blob: eeb69bd84bbccbb7cd9150fdccd816da933b1e43 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
;;; chicanery/impl/chicken -*- geiser-scheme-implementation: chicken -*-
(module chicanery ()
(import (scheme base)
(scheme eval)
(srfi 1)
(chicken module))
(import-for-syntax r7rs)
(reexport (scheme base)
(scheme case-lambda)
(scheme char)
(scheme complex)
(scheme cxr)
(scheme eval)
(scheme file)
(scheme inexact)
(scheme lazy)
(scheme load)
(scheme process-context)
(scheme read)
(scheme repl)
(scheme time)
(scheme write))
(define env (environment '(only chicken.base exit)))
(##sys#current-environment (##sys#slot env 2))
(##sys#macro-environment (filter-map
(lambda (e)
(and (list? e) e))
(##sys#slot env 2)))
(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))
|
