You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
386 B
Racket
16 lines
386 B
Racket
#lang racket/base
|
|
(require sugar/include sugar/define xml)
|
|
|
|
(define+provide+safe (txexpr? x)
|
|
(any/c . -> . boolean?)
|
|
(with-handlers ([exn:fail? (λ(exn) #f)])
|
|
(and (validate-txexpr x) #t)))
|
|
|
|
(define+provide+safe (txexpr-attr? x)
|
|
(any/c . -> . boolean?)
|
|
(match x
|
|
[(list (? symbol?) (? string?)) #t]
|
|
[else #f]))
|
|
|
|
(include-without-lang-line "../typed/txexpr/main.rkt")
|