Lines Matching refs:hpat
750 [(fdh hpat)
751 (syntax-case #'hpat ()
752 [#s(hpat:single sp) #'(first-desc:S sp)]
753 [#s(hpat:var/p _ _ _ _ _ #s(scopts _ _ _ desc)) #'(quote desc)]
754 [#s(hpat:seq lp) #'(first-desc:L lp)]
755 [#s(hpat:describe _hp desc _t? _r)
757 [#s(hpat:delimit hp) #'(first-desc:H hp)]
758 [#s(hpat:commit hp) #'(first-desc:H hp)]
759 [#s(hpat:ord hp _ _) #'(first-desc:H hp)]
760 [#s(hpat:post hp) #'(first-desc:H hp)]
830 [#s(hpat:single pattern)
835 [#s(hpat:describe pattern description transparent? role)
841 [#s(hpat:var/p name parser argu (nested-a ...) role
877 [#s(hpat:reflect obj argu attr-decls name (nested-a ...))
892 [#s(hpat:and head single)
897 [#s(hpat:or (a ...) (subpattern ...) (subattrs ...))
907 [#s(hpat:seq pattern)
909 [#s(hpat:action action subpattern)
911 [#s(hpat:delimit pattern)
916 [#s(hpat:commit pattern)
924 [#s(hpat:ord pattern group index)
928 [#s(hpat:post pattern)
932 [#s(hpat:peek pattern)
937 [#s(hpat:peek-not subpattern)
963 [(parse:dots x cx (#s(ehpat (attr0) #s(hpat:single #s(pat:svar name)) #f #f))
970 …[(parse:dots x cx (#s(ehpat (attr0) #s(hpat:single #s(pat:integrated _name pred? desc role)) #f #f…
1125 [(_ es rep #s(rep:once name too-few-msg too-many-msg) hpat)
1128 [(first-desc:H hpat) => (lambda (fd) (es-add-proper-pair fd es))]
1130 [(_ es rep #s(rep:optional name too-many-msg _) hpat)
1132 [(_ es rep #s(rep:bounds min max name too-few-msg too-many-msg) hpat)
1135 [(first-desc:H hpat) => (lambda (fd) (es-add-proper-pair fd es))]