Revert "teeny contract change"

This reverts commit 65e68e39cc.
10 years ago · 7f0743100e
parent 65e68e39cc
commit 7f0743100e
1 changed files with 1 additions and 1 deletions
--- a/main.rkt
+++ b/main.rkt
@ -194,7 +194,7 @@

 ;; function to split tag out of txexpr
 (define+provide/contract (splitf-txexpr tx proc)
-  ((and/c xexpr/c txexpr?) procedure? . -> . (values txexpr? (listof txexpr-element?)))
+  (txexpr? procedure? . -> . (values txexpr? (listof txexpr-element?)))
  (define matches empty)
  (define (do-extraction x)
    (cond