Renamed local->locally

7 files changed, 41 insertions, 41 deletions

diff --git a/scheme/aps/list-utils.sls b/scheme/aps/list-utils.sls
index faeecde..aad0aea 100644
--- a/scheme/aps/list-utils.sls
+++ b/scheme/aps/list-utils.sls
@@ -124,13 +124,13 @@
 (def-syntax fold
   (syntax-match (left right in)
      (sub (fold left (acc seed) (x in lst) (x* in lst*) ... new-acc)
-          (local
+          (locally
            (with-syntax (a a* ...) (generate-temporaries #'(x x* ...)))
            #'(fold-left
               (lambda (acc a a* ...) (let+ (x a) (x* a*) ... new-acc))
              seed lst lst* ...)))
      (sub (fold right (acc seed) (x in lst) (x* in lst*) ... new-acc)
-          (local
+          (locally
            (with-syntax (a a* ...) (generate-temporaries #'(x x* ...)))
            #'(fold-right
               (lambda (a a* ... acc) (let+ (x a) (x* a*) ... new-acc))
diff --git a/scheme/make_sweet_macros.py b/scheme/make_sweet_macros.py
index 1ff9f38..a3b427e 100644
--- a/scheme/make_sweet_macros.py
+++ b/scheme/make_sweet_macros.py
@@ -9,7 +9,7 @@ snippet = dict(snippets)
 
 helper1 = '''#!r6rs
 (library (sweet-macros helper1)
-(export local guarded-syntax-case)
+(export locally guarded-syntax-case)
 (import (rnrs))
 
 %(LOCAL)s
@@ -20,7 +20,7 @@ helper1 = '''#!r6rs
 
 helper2 = '''#!r6rs
 (library (sweet-macros helper2)
-(export local syntax-match)
+(export locally syntax-match)
 (import (rnrs) (for (rnrs) (meta -1))
 (for (sweet-macros helper1) (meta -1) (meta 0) (meta 1)))
 
@@ -30,7 +30,7 @@ helper2 = '''#!r6rs
 
 helper3 = '''#!r6rs
 (library (sweet-macros)
-(export local syntax-match def-syntax)
+(export locally syntax-match def-syntax)
 (import (rnrs) (for (sweet-macros helper2) run expand))
 
 %(DEF-SYNTAX)s
@@ -39,7 +39,7 @@ helper3 = '''#!r6rs
 
 main = '''#!r6rs
 (library (sweet-macros)
-(export local syntax-match def-syntax syntax-expand)
+(export locally syntax-match def-syntax syntax-expand)
 (import (rnrs) (for (sweet-macros helper3) run expand))
 
 %(SYNTAX-EXPAND)s
diff --git a/scheme/sweet-macros/helper1.mzscheme.sls b/scheme/sweet-macros/helper1.mzscheme.sls
index 06f52f5..2e4065e 100644
--- a/scheme/sweet-macros/helper1.mzscheme.sls
+++ b/scheme/sweet-macros/helper1.mzscheme.sls
@@ -1,17 +1,17 @@
 #!r6rs
 (library (sweet-macros helper1)
-(export local guarded-syntax-case)
+(export locally guarded-syntax-case)
 (import (rnrs))
 
-(define-syntax local
+(define-syntax locally
   (lambda (x)
     (syntax-case x (syntax-match)
-      ((local expr)
+      ((locally expr)
        #'expr)
-      ((local (let-form name value) ... (syntax-match b0 b1 b2 ...))
-       #'(syntax-match (local (let-form name value) ...) b0 b1 b2 ...))
-      ((local (let-form name value) (l n v) ... expr)
-       #'(let-form ((name value)) (local (l n v) ... expr))))
+      ((locally (let-form name value) ... (syntax-match b0 b1 b2 ...))
+       #'(syntax-match (locally (let-form name value) ...) b0 b1 b2 ...))
+      ((locally (let-form name value) (l n v) ... expr)
+       #'(let-form ((name value)) (locally (l n v) ... expr))))
     ))
 
 (define-syntax guarded-syntax-case
diff --git a/scheme/sweet-macros/helper2.mzscheme.sls b/scheme/sweet-macros/helper2.mzscheme.sls
index 55d2f22..80a5aab 100644
--- a/scheme/sweet-macros/helper2.mzscheme.sls
+++ b/scheme/sweet-macros/helper2.mzscheme.sls
@@ -1,14 +1,14 @@
 #!r6rs
 (library (sweet-macros helper2)
-(export local syntax-match)
+(export locally syntax-match)
 (import (rnrs) (for (rnrs) (meta -1))
 (for (sweet-macros helper1) (meta -1) (meta 0) (meta 1)))
 
 (define-syntax syntax-match
-  (guarded-syntax-case () (sub local)
-    ((self (local (let-form name value) ...) (literal ...)
+  (guarded-syntax-case () (sub locally)
+    ((self (locally (let-form name value) ...) (literal ...)
            (sub patt skel . rest) ...)
-     #'(local (let-form name value) ...
+     #'(locally (let-form name value) ...
          (guarded-syntax-case ()
            (<literals> <patterns> <source> <transformer> literal ...)
            ((ctx <literals>)
@@ -16,10 +16,10 @@
            ((ctx <patterns>)
             #''((... (... patt)) ...))
            ((ctx <source>)
-            #''(self (local (let-form name value) ...) (literal ...)
+            #''(self (locally (let-form name value) ...) (literal ...)
                      (... (... (sub patt skel . rest))) ...))
            ((ctx <transformer>)
-            #'(self (local (let-form name value) ...) (literal ...)
+            #'(self (locally (let-form name value) ...) (literal ...)
                     (... (... (sub patt skel . rest))) ...))
            (patt skel . rest) ...))
      (for-all identifier? #'(literal ...))
@@ -27,7 +27,7 @@
                        (remp identifier? #'(literal ...))))
     
     ((self (literal ...) (sub patt skel . rest) ...)
-     #'(self (local)(literal ...) (sub patt skel . rest) ...))
+     #'(self (locally)(literal ...) (sub patt skel . rest) ...))
 
     ((self x (literal ...) (sub patt skel . rest) ...)
      #'(guarded-syntax-case x (literal ...) (patt skel . rest) ...))
diff --git a/scheme/sweet-macros/helper3.mzscheme.sls b/scheme/sweet-macros/helper3.mzscheme.sls
index 79e6984..f97124e 100644
--- a/scheme/sweet-macros/helper3.mzscheme.sls
+++ b/scheme/sweet-macros/helper3.mzscheme.sls
@@ -1,15 +1,15 @@
 #!r6rs
 (library (sweet-macros)
-(export local syntax-match def-syntax)
+(export locally syntax-match def-syntax)
 (import (rnrs) (for (sweet-macros helper2) run expand))
 
 (define-syntax def-syntax
-  (syntax-match (extends local)
+  (syntax-match (extends locally)
     (sub (def-syntax name (extends parent)
-       (local loc ...) (literal ...) 
+       (locally loc ...) (literal ...) 
        clause ...)
      #'(define-syntax name
-         (syntax-match (local loc ...) (literal ...)
+         (syntax-match (locally loc ...) (literal ...)
            clause ...
            (sub x ((parent <transformer>) #'x)))))
     (sub (def-syntax (name . args) skel . rest)
diff --git a/scheme/sweet-macros/main.mzscheme.sls b/scheme/sweet-macros/main.mzscheme.sls
index 9c765e6..ade973e 100644
--- a/scheme/sweet-macros/main.mzscheme.sls
+++ b/scheme/sweet-macros/main.mzscheme.sls
@@ -1,6 +1,6 @@
 #!r6rs
 (library (sweet-macros)
-(export local syntax-match def-syntax syntax-expand)
+(export locally syntax-match def-syntax syntax-expand)
 (import (rnrs) (for (sweet-macros helper3) run expand))
 
 (def-syntax (syntax-expand (macro . args))
diff --git a/scheme/sweet-macros/main.sls b/scheme/sweet-macros/main.sls
index 7542190..9058cc8 100644
--- a/scheme/sweet-macros/main.sls
+++ b/scheme/sweet-macros/main.sls
@@ -1,17 +1,17 @@
 (library (sweet-macros)
-(export syntax-match def-syntax syntax-expand local)
+(export syntax-match def-syntax syntax-expand locally)
 (import (rnrs))
 
 ;;LOCAL
-(define-syntax local
+(define-syntax locally
   (lambda (x)
     (syntax-case x (syntax-match)
-      ((local expr)
+      ((locally expr)
        #'expr)
-      ((local (let-form name value) ... (syntax-match b0 b1 b2 ...))
-       #'(syntax-match (local (let-form name value) ...) b0 b1 b2 ...))
-      ((local (let-form name value) (l n v) ... expr)
-       #'(let-form ((name value)) (local (l n v) ... expr))))
+      ((locally (let-form name value) ... (syntax-match b0 b1 b2 ...))
+       #'(syntax-match (locally (let-form name value) ...) b0 b1 b2 ...))
+      ((locally (let-form name value) (l n v) ... expr)
+       #'(let-form ((name value)) (locally (l n v) ... expr))))
     ))
 ;;END
 
@@ -45,10 +45,10 @@
 
 ;;SYNTAX-MATCH
 (define-syntax syntax-match
-  (guarded-syntax-case () (sub local)
-    ((self (local (let-form name value) ...) (literal ...)
+  (guarded-syntax-case () (sub locally)
+    ((self (locally (let-form name value) ...) (literal ...)
            (sub patt skel . rest) ...)
-     #'(local (let-form name value) ...
+     #'(locally (let-form name value) ...
          (guarded-syntax-case ()
            (<literals> <patterns> <source> <transformer> literal ...)
            ((ctx <literals>)
@@ -56,10 +56,10 @@
            ((ctx <patterns>)
             #''((... (... patt)) ...))
            ((ctx <source>)
-            #''(self (local (let-form name value) ...) (literal ...)
+            #''(self (locally (let-form name value) ...) (literal ...)
                      (... (... (sub patt skel . rest))) ...))
            ((ctx <transformer>)
-            #'(self (local (let-form name value) ...) (literal ...)
+            #'(self (locally (let-form name value) ...) (literal ...)
                     (... (... (sub patt skel . rest))) ...))
            (patt skel . rest) ...))
      (for-all identifier? #'(literal ...))
@@ -67,7 +67,7 @@
                        (remp identifier? #'(literal ...))))
     
     ((self (literal ...) (sub patt skel . rest) ...)
-     #'(self (local)(literal ...) (sub patt skel . rest) ...))
+     #'(self (locally)(literal ...) (sub patt skel . rest) ...))
 
     ((self x (literal ...) (sub patt skel . rest) ...)
      #'(guarded-syntax-case x (literal ...) (patt skel . rest) ...))
@@ -76,12 +76,12 @@
 
 ;; DEF-SYNTAX
 (define-syntax def-syntax
-  (syntax-match (extends local)
+  (syntax-match (extends locally)
     (sub (def-syntax name (extends parent)
-       (local loc ...) (literal ...) 
+       (locally loc ...) (literal ...) 
        clause ...)
      #'(define-syntax name
-         (syntax-match (local loc ...) (literal ...)
+         (syntax-match (locally loc ...) (literal ...)
            clause ...
            (sub x ((parent <transformer>) #'x)))))
     (sub (def-syntax (name . args) skel . rest)