((2 ()) ((1) 0 () 29 ((c collects c (? . 1) c (u . #"base.ss")) (u . #"scheme") (c collects c (? . 1) c (? . 3) c (u . #"pre-base.ss")) (u . #"private") (c #%kernel c boolean?) (c #%kernel c cons) (c (c collects c (? . 1) c (? . 3) c (u . #"stxcase-scheme.ss")) c ...) (c #%kernel c list) (c (? . 0) c file) (c #%kernel c cdr) (c #%kernel c procedure?) (c (? . 0) c require) (c #%kernel c exn:fail:contract) (c #%kernel c string-append) (c (? . 0) c lambda) (c (? . 0) c planet) (c #%kernel c string?) (c #%kernel c map) (c #%kernel c substring) (c #%kernel c symbol?) (c #%kernel c format) (c #%kernel c pregexp) (c (? . 0) c provide) (c #%kernel c car) (c #%kernel c add1) (c #%kernel c void?) (c #%kernel c string->number) (c #%kernel c null) (c (? . 0) c define)) () (c (c dep c (? . 13)) c (c dep c (? . 5)) c (c dep c (c (? . 0) c cons)) c (c dep c (? . 7)) c (c form c (? . 11)) c (c dep c (c (? . 0) c format)) c (c dep c (c (? . 2) c map)) c (c dep c (c (? . 0) c ...)) c (c dep c (c (? . 0) c procedure?)) c (c dep c (c (? . 0) c list)) c (c form c (? . 28)) c (c dep c (c (? . 2) c symbol?)) c (c def c (? . 12)) c (c dep c (? . 4)) c (c form c (? . 22)) c (c dep c (? . 18)) c (c form c (? . 8)) c (c dep c (c (? . 0) c map)) c (c form c (? . 6)) c (c dep c (c (? . 0) c void?)) c (c dep c (c (? . 0) c pregexp)) c (c dep c (c (? . 2) c string?)) c (c dep c (c (? . 0) c null)) c (c mod-path c (u . "scheme/base")) c (c dep c (c (? . 0) c symbol?)) c (c dep c (c (? . 2) c void?)) c (c dep c (? . 23)) c (c def c (? . 17)) c (c def c (? . 16)) c (c def c (? . 9)) c (c def c (? . 27)) c (c dep c (? . 10)) c (c def c (? . 4)) c (c dep c (c (? . 2) c null)) c (c def c (? . 25)) c (c def c (? . 5)) c (c dep c (? . 6)) c (c dep c (c (? . 2) c list)) c (c def c (? . 7)) c (c dep c (c (? . 0) c string?)) c (c dep c (c (? . 2) c car)) c (c dep c (? . 19)) c (c def c (? . 26)) c (c dep c (c (? . 0) c substring)) c (c dep c (c (p+ #"/Users/dave/planet/untyped/dispatch.plt/1/2/struct-private.ss" . unix) c pattern)) c (c part c (c (u . "(collects scribblings guide guide.scrbl)") c "hash-lang")) c (c dep c (c (? . 0) c car)) c (c dep c (? . 8)) c (c dep c (c (? . 2) c string->number)) c (c dep c (c (p+ #"/Users/dave/planet/untyped/dispatch.plt/1/2/struct.ss" . unix) c pattern)) c (c dep c (c (p+ #"/Users/dave/planet/untyped/dispatch.plt/1/2/dispatch.ss" . unix) c pattern)) c (c form c (? . 15)) c (c dep c (c (? . 0) c string-append)) c (c dep c (? . 9)) c (c def c (? . 10)) c (c dep c (? . 20)) c (c dep c (? . 11)) c (c dep c (? . 12)) c (c def c (? . 13)) c (c dep c (c (? . 2) c pregexp)) c (c form c (? . 14)) c (c dep c (? . 14)) c (c dep c (c (? . 2) c cdr)) c (c dep c (? . 15)) c (c def c (? . 21)) c (c dep c (c (? . 2) c procedure?)) c (c dep c (? . 16)) c (c dep c (? . 17)) c (c dep c (c (? . 0) c string->number)) c (c dep c (c (? . 0) c exn:fail:contract)) c (c def c (? . 18)) c (c dep c (c (? . 2) c boolean?)) c (c dep c (c (? . 0) c add1)) c (c dep c (c (? . 0) c boolean?)) c (c dep c (c (? . 2) c string-append)) c (c def c (? . 19)) c (c def c (? . 20)) c (c dep c (c (? . 2) c cons)) c (c dep c (c (? . 2) c format)) c (c dep c (? . 21)) c (c dep c (c (? . 2) c add1)) c (c dep c (c (? . 2) c exn:fail:contract)) c (c dep c (? . 22)) c (c def c (? . 23)) c (c dep c (? . 24)) c (c def c (? . 24)) c (c dep c (c (? . 0) c cdr)) c (c dep c (? . 25)) c (c dep c (? . 26)) c (c dep c (? . 27)) c (c dep c (c (? . 2) c substring)) c (c dep c (? . 28)))) () ((1) 0 () 57 ((u . #"scheme") (u . #"private") (c (? . 6) c file) (c (? . 4) c controller-body) (p+ #"/Users/dave/planet/untyped/dispatch.plt/1/2/dispatch.ss" . unix) (c (? . 4) c define/provide-site) (c collects c (? . 0) c (u . #"base.ss")) (c collects c (? . 0) c (? . 1) c (u . #"pre-base.ss")) (c (? . 6) c void?) (c (? . 4) c arg-decoder) (c (? . 6) c boolean?) (c (? . 6) c format) (c (? . 6) c exn:fail:contract) (c (? . 6) c car) (c (? . 6) c procedure?) (c (? . 4) c controller-site) (c (? . 4) c arg-id) (c (? . 4) c controller?) (c (? . 4) c symbol-arg) (c (? . 4) c site-controllers) (c (? . 6) c null) (c (? . 4) c site?) (c (? . 6) c cons) (c (? . 6) c string-append) (c (? . 4) c arg-pattern) (c (? . 4) c real-arg) (c (? . 4) c pattern) (c (? . 4) c integer-arg) (c (? . 6) c symbol?) (c (? . 6) c require) (c collects c (? . 0) c (? . 1) c (u . #"reqprov.ss")) (c (? . 6) c cdr) (c (? . 6) c string?) (c (? . 6) c substring) (c (? . 4) c define-controller) (c (? . 4) c controller-id) (c (? . 4) c controller-url) (c (? . 4) c dispatch) (c (? . 6) c provide) (c (? . 6) c list) (c (? . 6) c add1) (c (? . 4) c site-id) (c (? . 4) c arg-encoder) (c (? . 6) c map) (c (? . 4) c make-arg) (c (? . 4) c define-site) (c (? . 4) c arg?) (c (? . 6) c pregexp) (c (? . 6) c ...) (c (? . 4) c string-arg) (c (? . 6) c planet) (c (? . 6) c define) (c (? . 4) c controller-pipeline) (c collects c (? . 0) c (? . 1) c (u . #"kw.ss")) (c (? . 6) c lambda) (c (? . 6) c string->number) (c (? . 4) c rest-arg)) () (h ! (equal) ((? . 2) h ! (equal) ((c dep c (c (? . 7) c file)) . #t) ((c dep c (c (? . 30) c file)) . #t) ((c dep c (? . 2)) . #t)) ((? . 3) h ! (equal) ((c dep c (? . 3)) . #t)) ((? . 5) h ! (equal) ((c dep c (? . 5)) . #t)) ((? . 8) h ! (equal) ((c dep c (c #%kernel c void?)) . #t) ((c dep c (c (? . 7) c void?)) . #t) ((c dep c (? . 8)) . #t)) ((? . 9) h ! (equal) ((c dep c (? . 9)) . #t)) ((? . 10) h ! (equal) ((c dep c (? . 10)) . #t) ((c dep c (c (? . 7) c boolean?)) . #t) ((c dep c (c #%kernel c boolean?)) . #t)) ((? . 11) h ! (equal) ((c dep c (c (? . 7) c format)) . #t) ((c dep c (? . 11)) . #t) ((c dep c (c #%kernel c format)) . #t)) ((? . 12) h ! (equal) ((c dep c (c (? . 7) c exn:fail:contract)) . #t) ((c dep c (? . 12)) . #t) ((c dep c (c #%kernel c exn:fail:contract)) . #t)) ((? . 13) h ! (equal) ((c dep c (c (? . 7) c car)) . #t) ((c dep c (? . 13)) . #t) ((c dep c (c #%kernel c car)) . #t)) ((? . 14) h ! (equal) ((c dep c (? . 14)) . #t) ((c dep c (c #%kernel c procedure?)) . #t) ((c dep c (c (? . 7) c procedure?)) . #t)) ((? . 15) h ! (equal) ((c dep c (? . 15)) . #t)) ((? . 16) h ! (equal) ((c dep c (? . 16)) . #t)) ((? . 17) h ! (equal) ((c dep c (? . 17)) . #t)) ((? . 18) h ! (equal) ((c dep c (? . 18)) . #t)) ((? . 19) h ! (equal) ((c dep c (? . 19)) . #t)) ((? . 20) h ! (equal) ((c dep c (? . 20)) . #t) ((c dep c (c #%kernel c null)) . #t) ((c dep c (c (? . 7) c null)) . #t)) ((? . 21) h ! (equal) ((c dep c (? . 21)) . #t)) ((? . 22) h ! (equal) ((c dep c (c (? . 7) c cons)) . #t) ((c dep c (? . 22)) . #t) ((c dep c (c #%kernel c cons)) . #t)) ((? . 23) h ! (equal) ((c dep c (? . 23)) . #t) ((c dep c (c #%kernel c string-append)) . #t) ((c dep c (c (? . 7) c string-append)) . #t)) ((? . 24) h ! (equal) ((c dep c (? . 24)) . #t)) ((? . 25) h ! (equal) ((c dep c (? . 25)) . #t)) ((? . 26) h ! (equal) ((c dep c (c (p+ #"/Users/dave/planet/untyped/dispatch.plt/1/2/struct.ss" . unix) c pattern)) . #t) ((c dep c (? . 26)) . #t) ((c dep c (c (p+ #"/Users/dave/planet/untyped/dispatch.plt/1/2/struct-private.ss" . unix) c pattern)) . #t)) ((? . 27) h ! (equal) ((c dep c (? . 27)) . #t)) ((? . 28) h ! (equal) ((c dep c (c (? . 7) c symbol?)) . #t) ((c dep c (? . 28)) . #t) ((c dep c (c #%kernel c symbol?)) . #t)) ((? . 29) h ! (equal) ((c dep c (? . 29)) . #t) ((c dep c (c (? . 30) c require)) . #t) ((c dep c (c (? . 7) c require)) . #t)) ((? . 31) h ! (equal) ((c dep c (c (? . 7) c cdr)) . #t) ((c dep c (? . 31)) . #t) ((c dep c (c #%kernel c cdr)) . #t)) ((? . 32) h ! (equal) ((c dep c (c (? . 7) c string?)) . #t) ((c dep c (? . 32)) . #t) ((c dep c (c #%kernel c string?)) . #t)) ((? . 33) h ! (equal) ((c dep c (? . 33)) . #t) ((c dep c (c #%kernel c substring)) . #t) ((c dep c (c (? . 7) c substring)) . #t)) ((? . 34) h ! (equal) ((c dep c (? . 34)) . #t)) ((? . 35) h ! (equal) ((c dep c (? . 35)) . #t)) ((? . 36) h ! (equal) ((c dep c (? . 36)) . #t)) ((? . 37) h ! (equal) ((c dep c (? . 37)) . #t)) ((? . 38) h ! (equal) ((c dep c (? . 38)) . #t) ((c dep c (c (? . 30) c provide)) . #t) ((c dep c (c (? . 7) c provide)) . #t)) ((? . 39) h ! (equal) ((c dep c (? . 39)) . #t) ((c dep c (c #%kernel c list)) . #t) ((c dep c (c (? . 7) c list)) . #t)) ((? . 40) h ! (equal) ((c dep c (c (? . 7) c add1)) . #t) ((c dep c (? . 40)) . #t) ((c dep c (c #%kernel c add1)) . #t)) ((? . 41) h ! (equal) ((c dep c (? . 41)) . #t)) ((? . 42) h ! (equal) ((c dep c (? . 42)) . #t)) ((? . 43) h ! (equal) ((c dep c (? . 43)) . #t) ((c dep c (c #%kernel c map)) . #t) ((c dep c (c (? . 7) c map)) . #t)) ((? . 44) h ! (equal) ((c dep c (? . 44)) . #t)) ((? . 45) h ! (equal) ((c dep c (? . 45)) . #t)) ((? . 46) h ! (equal) ((c dep c (? . 46)) . #t)) ((? . 47) h ! (equal) ((c dep c (c (? . 7) c pregexp)) . #t) ((c dep c (? . 47)) . #t) ((c dep c (c #%kernel c pregexp)) . #t)) ((? . 48) h ! (equal) ((c dep c (? . 48)) . #t) ((c dep c (c (c collects c (? . 0) c (? . 1) c (u . #"stxcase-scheme.ss")) c ...)) . #t) ((c dep c (c (c collects c (? . 0) c (? . 1) c (u . #"stxcase.ss")) c ...)) . #t) ((c dep c (c (c collects c (? . 0) c (? . 1) c (u . #"stxloc.ss")) c ...)) . #t) ((c dep c (c (c collects c (? . 0) c (? . 1) c (u . #"ellipses.ss")) c ...)) . #t)) ((? . 49) h ! (equal) ((c dep c (? . 49)) . #t)) ((? . 50) h ! (equal) ((c dep c (? . 50)) . #t) ((c dep c (c (? . 30) c planet)) . #t) ((c dep c (c (? . 7) c planet)) . #t)) ((? . 51) h ! (equal) ((c dep c (? . 51)) . #t) ((c dep c (c (? . 53) c new-define)) . #t) ((c dep c (c (? . 7) c define)) . #t)) ((? . 52) h ! (equal) ((c dep c (? . 52)) . #t)) ((? . 54) h ! (equal) ((c dep c (c (? . 53) c new-lambda)) . #t) ((c dep c (c (? . 7) c lambda)) . #t) ((c dep c (? . 54)) . #t)) ((? . 55) h ! (equal) ((c dep c (c (? . 7) c string->number)) . #t) ((c dep c (c #%kernel c string->number)) . #t) ((c dep c (? . 55)) . #t)) ((? . 56) h ! (equal) ((c dep c (? . 56)) . #t)))))