define/typed

9 years ago · d8843648c7
parent c7b8bcb7c2
commit d8843648c7
1 changed files with 6 additions and 6 deletions
--- a/quad/quads-typed.rkt
+++ b/quad/quads-typed.rkt
@ -205,8 +205,8 @@
                             (make-quadattrs null)) xs))
           
           
-           (: id? (Any . -> . Boolean))
-           (define (id? x)
+           (define/typed (id? x)
+             (Any . -> . Boolean)
             (and (quad? x) (equal? (quad-name x) 'id)))))]))

 (define/typed (whitespace? x [nbsp? #f])