better error message

pull/2/head
Matthew Butterick 10 years ago
parent 0f880e6931
commit e3508b0c54

@ -231,7 +231,7 @@
(define: tx-extracted : Xexpr (do-extraction tx)) ;; do this first to fill matches (define: tx-extracted : Xexpr (do-extraction tx)) ;; do this first to fill matches
(values (if (txexpr? tx-extracted) (values (if (txexpr? tx-extracted)
tx-extracted tx-extracted
(error 'splitf-txexpr "Can't get here")) (reverse matches))) (error 'splitf-txexpr "Bad input")) (reverse matches)))
(define/typed (xexpr->html x) (define/typed (xexpr->html x)

Loading…
Cancel
Save