www

commit d5ad8f56ec2dd0e1567961b792fc42c6a9573907
parent 673a0ba2c5dd32744efa6fd85f78374b03aa08bf
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Thu, 22 Sep 2016 20:54:47 +0200

Fixed not-stx-list -> not-stx-pair

Diffstat:
M
main.rkt
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/main.rkt b/main.rkt
@@ -135,8 +135,8 @@
                #:when normal
                #:with (expanded …) (cons #'base normal)))
 
-    (define-syntax-class not-stx-list
-      (pattern {~not (_ …)}))
+    (define-syntax-class not-stx-pair
+      (pattern {~not (_ . _)}))
 
     (define-syntax-class base
       #:literals (^ + *)
@@ -176,7 +176,7 @@
           #:literals (^ * + - ∞ stop)
           [()
            #'Null]
-          [rest:not-stx-list
+          [rest:not-stx-pair
            #'rest]
           [(#:rest rest)
            #'rest]
@@ -240,7 +240,7 @@
           #:literals (^ * + - ∞ stop)
           [()
            #'(list)]
-          [rest:not-stx-list
+          [rest:not-stx-pair
            #'rest]
           [(#:rest rest)
            #'rest]