From 7f0b579a01591fe95bc67683a5d92b56f6090103 Mon Sep 17 00:00:00 2001 From: haskal Date: Thu, 3 Dec 2020 00:17:52 -0500 Subject: [PATCH] fix get-challenge script --- scripts/get-challenge | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/get-challenge b/scripts/get-challenge index 0be58f7..6968a43 100755 --- a/scripts/get-challenge +++ b/scripts/get-challenge @@ -16,7 +16,7 @@ (define (xexpr->style-ast doc) (match doc [(? string?) (style-ast #f #f #f doc)] - [(list 'script _ ...) #f] + [(list (or 'script 'form) _ ...) #f] [(list-no-order 'p (list 'span (list-no-order '(class "share")) _ ...) _ ...) #f] [(list 'li _ children ...) (define out-children (filter identity (map xexpr->style-ast children))) @@ -38,7 +38,7 @@ [('em _) (values #f #f 'bold)] [(_ _) (printf "warning: unhandled ~a ~a\n" tag attrs) - (#f #f #f)])) + (values #f #f #f)])) (define inner-children (filter identity (map xexpr->style-ast children))) (define new-children (if ((or/c 'h2 'pre 'p) tag)