From d5ad8f56ec2dd0e1567961b792fc42c6a9573907 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Thu, 22 Sep 2016 20:54:47 +0200
Subject: [PATCH] Fixed not-stx-list -> not-stx-pair

---
 main.rkt | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/main.rkt b/main.rkt
index 09e16af..ac00b82 100644
--- 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]