fix iterator (closes #39)

10 years ago · 11bb19b371
parent 82217dd1af
commit 11bb19b371
1 changed files with 2 additions and 2 deletions
--- a/highlight.rkt
+++ b/highlight.rkt
@ -44,8 +44,8 @@ if zero is False:
  (match x
    [`(,tag ([,ks ,vs] ...) . ,els)
     `(,tag
-       ,(for/list ([k (in-value ks)]
+       ,(for/list ([k (in-list ks)]
-                   [v (in-value vs)])
+                   [v (in-list vs)])
          (list k (regexp-replace* "&amp;" v "\\&")))
       ,@(map decode-ampersands-in-attributes els))]
    [v v]))