A lot of work on episodes 22,23,24

3 files changed, 7 insertions, 7 deletions

diff --git a/scheme/aps/compat.ypsilon.sls b/scheme/aps/compat.ypsilon.sls
index d1353ea..96ab7a6 100644
--- a/scheme/aps/compat.ypsilon.sls
+++ b/scheme/aps/compat.ypsilon.sls
@@ -1,5 +1,5 @@
 (library (aps compat)
-(export printf format gensym pretty-print)))
+(export printf format gensym pretty-print)
 (import (rnrs) (core))
 
 (define (printf format-string . args)
diff --git a/scheme/experimental/ct-mapping.mzscheme.sls b/scheme/experimental/static-map.mzscheme.sls
index 4ac9a7d..5c18a6b 100644
--- a/scheme/experimental/ct-mapping.mzscheme.sls
+++ b/scheme/experimental/static-map.mzscheme.sls
@@ -1,9 +1,9 @@
 #!r6rs
-(library (experimental ct-mapping)
-(export ct-mapping)
+(library (experimental static-map)
+(export static-map)
 (import (rnrs) (for (rnrs) (meta -1)) (sweet-macros))
 
-(def-syntax (ct-mapping (name value) ...)
+(def-syntax (static-map (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/static-map.sls
index 58d00c7..44d6199 100644
--- a/scheme/experimental/ct-mapping.sls
+++ b/scheme/experimental/static-map.sls
@@ -1,9 +1,9 @@
 #!r6rs
-(library (experimental ct-mapping)
-(export ct-mapping)
+(library (experimental static-map)
+(export static-map)
 (import (rnrs) (sweet-macros))
 
-(def-syntax (ct-mapping (name value) ...)
+(def-syntax (static-map (name value) ...)
   #'(syntax-match (<names> name ...)
       (sub (ctx <names>) #''(name ...))
       (sub (ctx name) #'value)