Rename base/define-syntax to base/syntax-rules.

dwyer · Nov 18, 2017 · 5684758 · 5684758
1 parent d34a006
commit 5684758
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 10 deletions.
diff --git a/lib/li/base/define-syntax.li → lib/li/base/syntax-rules.li b/lib/li/base/define-syntax.li → lib/li/base/syntax-rules.li
@@ -9,14 +9,6 @@
                   (syntax-case x ,literals ,clauses)))
              (cdr x))))
 
-  ; (define-syntax syntax-rules
-  ;   (lambda (x)
-  ;     (syntax-case x ()
-  ;       ((_ (lit ...) (p t) ...)
-  ;        (syntax (lambda (x)
-  ;                  (syntax-case x (lit ...)
-  ;                    (p (syntax t)) ...)))))))
-
   (define-syntax let-syntax
     (lambda (x)
       (syntax-case x null

diff --git a/test/for.li b/test/for.li
@@ -1,6 +1,6 @@
 (let ()
 
-  (import (li base/syntax-case))
+  (import (li base/syntax-rules))
 
   (define-syntax for
     (syntax-rules (in)

diff --git a/test/test-syntax-case.li b/test/test-syntax-case.li
@@ -1,5 +1,4 @@
 (let ()
-  (import (li base/define-syntax))
   (import (li base/syntax-case))
   (import (li list))
   (import for)

diff --git a/test/test.li b/test/test.li
@@ -535,6 +535,7 @@
   (import-test test-stack)
   (import-test test-string)
   (import-test test-syntax)
+  (import-test test-syntax-case)
   (import-test test-vector))
 
 (print "all tests passed!")