better error message

9 years ago · e3508b0c54
parent 0f880e6931
commit e3508b0c54
1 changed files with 1 additions and 1 deletions
--- 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)