define/typed

quad/quads-typed.rkt

@@ -199,14 +199,14 @@
            (define/typed (id [attrs #f] #:zzz [zzz 0] . xs)
              (() ((U False QuadAttrs HashableList) #:zzz Zero) #:rest QuadListItem . ->* . Quad)
              (IdQuad 'id (if attrs
-                           (if (list? attrs)
+                             (if (list? attrs)
-                               (make-quadattrs attrs)
+                                 (make-quadattrs attrs)
-                               attrs)
+                                 attrs)
-                           (make-quadattrs null)) xs))
+                             (make-quadattrs null)) xs))
            
            
-           (: id? (Any . -> . Boolean))
+           (define/typed (id? x)
-           (define (id? x)
+             (Any . -> . Boolean)
              (and (quad? x) (equal? (quad-name x) 'id)))))]))
 
 (define/typed (whitespace? x [nbsp? #f])