Added text and code about phase separation and the dark tower

3 files changed, 36 insertions, 0 deletions

diff --git a/scheme/experimental/ct-mapping.mzscheme.sls b/scheme/experimental/ct-mapping.mzscheme.sls
new file mode 100644
index 0000000..4ac9a7d
--- /dev/null
+++ b/scheme/experimental/ct-mapping.mzscheme.sls
@@ -0,0 +1,11 @@
+#!r6rs
+(library (experimental ct-mapping)
+(export ct-mapping)
+(import (rnrs) (for (rnrs) (meta -1)) (sweet-macros))
+
+(def-syntax (ct-mapping (name value) ...)
+  #'(syntax-match (<names> name ...)
+      (sub (ctx <names>) #''(name ...))
+      (sub (ctx name) #'value)
+      ...))
+)
diff --git a/scheme/experimental/ct-mapping.sls b/scheme/experimental/ct-mapping.sls
new file mode 100644
index 0000000..58d00c7
--- /dev/null
+++ b/scheme/experimental/ct-mapping.sls
@@ -0,0 +1,11 @@
+#!r6rs
+(library (experimental ct-mapping)
+(export ct-mapping)
+(import (rnrs) (sweet-macros))
+
+(def-syntax (ct-mapping (name value) ...)
+  #'(syntax-match (<names> name ...)
+      (sub (ctx <names>) #''(name ...))
+      (sub (ctx name) #'value)
+      ...))
+)
diff --git a/scheme/experimental/registry.sls b/scheme/experimental/registry.sls
new file mode 100644
index 0000000..cb92f15
--- /dev/null
+++ b/scheme/experimental/registry.sls
@@ -0,0 +1,14 @@
+#!r6rs
+(library (experimental registry)
+(export registry register)
+(import (rnrs) (aps compat))
+
+(define _registry '())
+
+(define (registry)
+  _registry)
+
+(define (register id)
+  (printf "registering ~a\n" id)
+  (set! _registry (append _registry (list id))))
+)