From 02f8dbf330ba9e65cc381a0ff975211944d86a4a Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 13 Aug 2023 21:29:44 -0500
Subject: Moved things around (pt 2)

---
 impl/chicken.scm | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 impl/chicken.scm

(limited to 'impl/chicken.scm')

diff --git a/impl/chicken.scm b/impl/chicken.scm
new file mode 100644
index 0000000..eeb69bd
--- /dev/null
+++ b/impl/chicken.scm
@@ -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))
-- 
cgit 1.4.1-21-gabe81