Moved things around (pt 2)

1 files changed, 40 insertions, 0 deletions

@@ -0,0 +1,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))