www

commit 6ac55c8e7237a88d06aa5022f35647c407016854
parent 2aece162a90a6257cfb9ad1aea877d11be5c500a
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Sun, 22 Jan 2017 23:18:19 +0100

Applied changes requested by @rmculpepper for PR #1587

Diffstat:
M
parse/experimental/template.rkt
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/parse/experimental/template.rkt b/parse/experimental/template.rkt
@@ -432,7 +432,7 @@ instead of integers and integer vectors.
        (and (pair? v) (quotable? (car v)) (quotable? (cdr v)))
        (and (vector? v) (andmap quotable? (vector->list v)))
        (and (hash? v) (andmap quotable? (hash->list v)))
-       (and (prefab-struct-key v) (andmap quotable? (struct->list v)))))
+       (and (prefab-struct-key v) (andmap quotable? (cdr (vector->list (struct->vector v)))))))
 
  (define (cons-guide g1 g2)
    (if (and (eq? g1 '_) (eq? g2 '_)) '_ (cons g1 g2)))