TODO: figure out how to make syntax-parse errors not loop

2017-01-12 17:55:23 -05:00 · 2017-01-12 17:55:23 -05:00 · b0c4666587
commit b0c4666587
parent 73466e025c
1 changed files with 4 additions and 1 deletions
--- a/debug/test/debug-repl-macros.rkt
+++ b/debug/test/debug-repl-macros.rkt
@ -23,7 +23,10 @@
                      #,(?list-helper #'[acc ... tmp] #'[y ...])
                      #false))]))
         (?list-helper #'[] #'[x ...])]
-        [stx (raise-syntax-error #f "bad syntax" #'stx)]))
+        [stx
+         ;; TODO: figure out how to make syntax-parse's own errors
+         ;;       not cause infinite loops
+         (raise-syntax-error #f "bad syntax" #'stx)]))
    (debug-repl)
    tmp)