From e3508b0c5430afd781eb89786b3a19d19d613850 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 9 Jun 2015 17:01:44 -0700 Subject: [PATCH] better error message --- typed/txexpr/main.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/typed/txexpr/main.rkt b/typed/txexpr/main.rkt index f87448b..5045f96 100644 --- a/typed/txexpr/main.rkt +++ b/typed/txexpr/main.rkt @@ -231,7 +231,7 @@ (define: tx-extracted : Xexpr (do-extraction tx)) ;; do this first to fill matches (values (if (txexpr? 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)