19914
((3) 0 () 45 ((q lib "unstable/temp-c/monitor.rkt") (q 22152 . 18) (q lib "unstable/contract.rkt") (q lib "unstable/debug.rkt") (q lib "unstable/automata/machine.rkt") (q lib "unstable/gui/redex.rkt") (q lib "unstable/gui/pict.rkt") (q lib "unstable/list.rkt") (q lib "unstable/syntax.rkt") (q lib "unstable/gui/slideshow.rkt") (q lib "unstable/class-iop.rkt") (q 70 . 3) (q 21444 . 4) (q lib "unstable/bytes.rkt") (q lib "unstable/flonum.rkt") (q 21524 . 6) (q lib "unstable/pretty.rkt") (q lib "unstable/options.rkt") (q 21674 . 16) (q lib "unstable/socket.rkt") (q lib "unstable/parameter-group.rkt") (q (lib "unstable/gui/snip.rkt") snip-canvas%) (q lib "unstable/gui/notify.rkt") (q lib "unstable/automata/nfa-ep.rkt") (q lib "unstable/function.rkt") (q lib "unstable/gui/ppict.rkt") (q lib "unstable/automata/re-ext.rkt") (q lib "unstable/markparam.rkt") (q lib "unstable/error.rkt") (q lib "unstable/automata/re.rkt") (c (? . 22) q notify-box%) (q lib "unstable/define.rkt") (q 0 . 3) (q lib "unstable/sequence.rkt") (q lib "unstable/logging.rkt") (q lib "unstable/gui/pslide.rkt") (q lib "unstable/temp-c/dsl.rkt") (q lib "unstable/struct.rkt") (q 14565 . 2) (q lib "unstable/find.rkt") (q lib "unstable/hash.rkt") (q lib "unstable/match.rkt") (q lib "unstable/macro-testing.rkt") (q lib "unstable/custom-write.rkt") (q lib "unstable/future.rkt")) () (h ! (equal) ((c form c (c (? . 3) q define/debug)) q (4702 . 3)) ((c def c (c (? . 4) q machine-sigma*)) q (428 . 2)) ((c def c (c (? . 0) q monitor:return-args)) c (? . 1)) ((c def c (c (? . 0) q struct:monitor:return)) c (? . 1)) ((c form c (c (? . 9) q staged)) q (41780 . 2)) ((c def c (c (? . 5) q function-rw)) q (48283 . 3)) ((q def ((lib "unstable/sandbox.rkt") make-log-based-eval)) q (18837 . 4)) ((c form c (c (? . 35) q pslide)) q (45073 . 2)) ((c def c (c (? . 8) q explode-module-path-index)) q (20175 . 4)) ((c def c (c (? . 2) q port-number?)) q (2788 . 2)) ((c def c (c (? . 2) q maybe/c)) q (3206 . 3)) ((c form c (c (? . 3) q define/private/debug)) q (4775 . 3)) ((c def c (c (? . 6) q gray)) q (28464 . 3)) ((c def c (c (? . 4) q machine-accepting?)) c (? . 11)) ((c def c (c (? . 5) q add-unquote-rewriters!)) q (46697 . 3)) ((c def c (c (? . 16) q break-lines)) q (18665 . 4)) ((c form c (c (? . 3) q let/debug)) q (5131 . 3)) ((c def c (c (? . 0) q monitor:proj-proj-label)) c (? . 15)) ((q form ((lib "unstable/2d/match.rkt") 2dmatch)) q (23880 . 22)) ((c def c (c (? . 7) q split-common-prefix)) q (11634 . 5)) ((c def c (c (? . 0) q monitor:return?)) c (? . 1)) ((c def c (c (? . 6) q rectangle/border)) q (31005 . 11)) ((c def c (c (? . 7) q map2)) q (12461 . 4)) ((c form c (c (? . 3) q letrec/debug)) q (5308 . 2)) ((c def c (c (? . 14) q +max.0)) q (9184 . 2)) ((c def c (c (? . 0) q monitor:return-rets)) c (? . 1)) ((c def c (c (? . 0) q monitor)) c (? . 12)) ((c def c (c (? . 4) q machine-next)) c (? . 32)) ((c form c (c (? . 10) q init-field/i)) q (10989 . 2)) ((c form c (c (? . 8) q phase-of-enclosing-module)) q (20313 . 2)) ((c def c (c (? . 28) q compose-error-message)) q (6664 . 13)) ((c def c (c (? . 6) q fill)) q (28832 . 5)) ((c form c (c (? . 9) q with-font)) q (40584 . 2)) ((c def c (c (? . 6) q arch)) q (39644 . 9)) ((c form c (c (? . 10) q send*/i)) q (10721 . 2)) ((c def c (c (? . 24) q disjoin)) q (9407 . 4)) ((c def c (c (? . 13) q read/bytes)) q (2604 . 3)) ((c def c (c (? . 4) q machine-accepting)) c (? . 11)) ((c form c (c (? . 6) q pict-match)) q (29980 . 5)) ((c form c (c (? . 42) q phase1-eval)) q (14298 . 8)) ((q def ((lib "unstable/gui/scribble.rkt") codeblock->pict)) q (51121 . 3)) ((c def c (c (? . 7) q remf)) q (12584 . 4)) ((q def ((lib "unstable/wrapc.rkt") wrap-expr/c)) q (3468 . 19)) ((c def c (c (? . 0) q monitor?)) c (? . 12)) ((c def c (c (? . 27) q mark-parameter)) c (? . 38)) ((c def c (c (? . 4) q machine-star)) q (529 . 3)) ((c def c (c (? . 13) q write/bytes)) q (2664 . 3)) ((c def c (c (? . 2) q path-piece?)) q (2858 . 2)) ((c form c (c (? . 23) q nfa/ep)) q (1479 . 14)) ((c def c (c (? . 4) q machine-seq*)) q (856 . 4)) ((c def c (c (? . 6) q cross-out)) q (39988 . 12)) ((c form c (c (? . 29) q define-re-transformer)) q (2380 . 2)) ((c def c (c (? . 2) q tcp-listen-port?)) q (2821 . 2)) ((c def c (c (? . 14) q flonums-between)) q (8832 . 4)) ((c def c (c (? . 2) q failure-result/c)) q (3064 . 2)) ((c form c (c (? . 25) q ppict-do*)) q (42099 . 13)) ((c def c (c (? . 17) q tweak-option)) q (16919 . 3)) ((c def c (c (? . 0) q struct:monitor:proj)) c (? . 15)) ((c def c (c (? . 5) q prefix-rw)) q (47646 . 7)) ((c def c (c (? . 14) q +min.0)) q (9159 . 2)) ((c def c (c (? . 7) q list-set)) q (13003 . 5)) ((c def c (c (? . 16) q pretty-format/write)) q (18135 . 5)) ((c def c (c (? . 8) q make-variable-like-transformer)) q (20348 . 6)) ((c def c (c (? . 5) q with-rewriters)) q (45351 . 3)) ((c def c (c (? . 4) q machine-intersect)) q (678 . 4)) ((c form c (c (? . 26) q rep)) q (2464 . 2)) ((q def ((lib "unstable/file.rkt") make-directory*/ignore-exists-exn)) q (7351 . 3)) ((c def c (? . 21)) q (48967 . 3)) ((c def c (c (? . 0) q monitor:call-args)) c (? . 18)) ((c def c (c (? . 6) q pin-label-line)) q (32116 . 31)) ((c def c (c (? . 17) q waive-option)) q (16864 . 3)) ((c def c (c (? . 20) q parameter-group?)) q (17558 . 3)) ((c def c (c (? . 19) q unix-socket-connect)) q (23028 . 3)) ((c def c (c (? . 0) q monitor:call-kw-args)) c (? . 18)) ((c def c (c (? . 6) q white)) q (28517 . 3)) ((c def c (c (? . 0) q monitor:call-kws)) c (? . 18)) ((c def c (c (? . 22) q choice/notify-box)) q (27123 . 10)) ((c def c (c (? . 7) q take-common-prefix)) q (11394 . 5)) ((c def c (c (? . 5) q current-compound-rewriters)) q (45906 . 5)) ((c def c (c (? . 34) q with-intercepted-logging)) q (13343 . 12)) ((c def c (c (? . 6) q shade)) q (29436 . 5)) ((c def c (c (? . 6) q color)) q (27963 . 4)) ((c form c (c (? . 9) q revealing-slide)) q (41931 . 2)) ((c def c (c (? . 6) q find-tag)) q (37944 . 4)) ((c def c (c (? . 17) q exercise-option)) q (16775 . 3)) ((c def c (c (? . 9) q mini-slide)) q (41517 . 3)) ((c def c (c (? . 19) q unix-socket-available?)) q (22986 . 2)) ((c def c (c (? . 6) q blur-bitmap!)) q (37651 . 5)) ((c def c (c (? . 6) q blue)) q (28248 . 3)) ((c form c (c (? . 3) q define/override/debug)) q (4951 . 3)) ((c def c (c (? . 5) q constant-rw)) q (48510 . 3)) ((c def c (c (? . 5) q only-first-rw)) q (48412 . 2)) ((c def c (c (? . 0) q struct:monitor)) c (? . 12)) ((c def c (c (? . 5) q binary-rw)) q (46957 . 13)) ((c form c (c (? . 9) q column)) q (41642 . 2)) ((c form c (c (? . 10) q init/i)) q (10927 . 2)) ((c def c (c (? . 0) q monitor-label)) c (? . 12)) ((c def c (c (? . 9) q tabular)) q (40762 . 17)) ((q form ((lib "unstable/automata/dfa.rkt") dfa)) q (959 . 11)) ((c def c (c (? . 9) q column-size)) q (41676 . 4)) ((c def c (c (? . 17) q option/c)) q (16109 . 15)) ((c def c (c (? . 6) q magenta)) q (28624 . 3)) ((c form c (c (? . 20) q parameterize*/group)) q (17974 . 5)) ((c form c (c (? . 3) q debug)) q (4361 . 5)) ((c def c (c (? . 14) q flnext)) q (9003 . 3)) ((c constructor c (? . 21)) q (49029 . 33)) ((c form c (c (? . 22) q define-notify)) q (26384 . 4)) ((c def c (c (? . 6) q tag-pict)) q (37868 . 4)) ((c def c (c (? . 4) q machine-complement)) q (462 . 3)) ((c form c (c (? . 23) q epsilon)) q (1464 . 2)) ((c def c (c (? . 24) q conjoin)) q (9310 . 4)) ((c form c (c (? . 3) q with-syntax*/debug)) q (5656 . 2)) ((q form ((lib "unstable/automata/nfa.rkt") nfa)) q (1193 . 11)) ((c form c (c (? . 20) q parameterize/group)) q (17814 . 5)) ((c form c (c (? . 31) q in-phase1)) q (5819 . 2)) ((c def c (c (? . 6) q show)) q (29157 . 4)) ((q def ((lib "unstable/string.rkt") regexp-filter)) q (19399 . 5)) ((c def c (c (? . 2) q non-empty-string?)) q (2725 . 3)) ((c def c (c (? . 7) q list-update)) q (12839 . 5)) ((c def c (c (? . 25) q merge-refpoints)) q (44935 . 4)) ((c form c (c (? . 26) q opt)) q (2421 . 2)) ((c def c (c (? . 27) q mark-parameters-all)) q (14923 . 6)) ((c form c (c (? . 6) q pict-case)) q (29842 . 5)) ((c def c (c (? . 6) q strike)) q (29339 . 4)) ((c form c (c (? . 9) q subscript)) q (40690 . 2)) ((c def c (c (? . 4) q machine-accepts?/prefix-closed)) q (253 . 4)) ((c def c (c (? . 6) q orange)) q (28084 . 3)) ((c form c (c (? . 10) q define-interface)) q (10510 . 2)) ((c def c (c (? . 6) q brown)) q (28410 . 3)) ((c form c (c (? . 3) q let*-values/debug)) q (5441 . 2)) ((c meth c (c (? . 30) q remove-all-listeners)) q (26099 . 2)) ((c def c (c (? . 14) q flonum->ordinal)) q (8595 . 4)) ((c def c (c (? . 28) q raise-misc-error)) q (5869 . 16)) ((c form c (c (? . 29) q seq)) q (2291 . 2)) ((c def c (c (? . 33) q in-pairs)) q (19037 . 3)) ((c constructor c (? . 30)) q (25706 . 3)) ((c meth c (c (? . 30) q listen)) q (25908 . 3)) ((c def c (c (? . 6) q purple)) q (28301 . 3)) ((c def c (c (? . 5) q current-unquote-rewriters)) q (46100 . 5)) ((c def c (c (? . 6) q find-tag*)) q (38041 . 4)) ((c form c (c (? . 9) q stage)) q (41820 . 2)) ((c form c (c (? . 26) q difference)) q (2490 . 2)) ((c form c (c (? . 41) q match?)) q (15206 . 2)) ((c def c (c (? . 0) q monitor:proj)) c (? . 15)) ((c def c (c (? . 4) q machine-null)) q (361 . 2)) ((c form c (c (? . 26) q seq/close)) q (2572 . 2)) ((c def c (c (? . 8) q format-unique-id)) q (20559 . 13)) ((c form c (c (? . 31) q at-end)) q (5797 . 2)) ((c def c (c (? . 40) q hash-union!)) q (10019 . 11)) ((c form c (c (? . 25) q ppict-do-state)) q (42475 . 2)) ((c def c (c (? . 25) q cascade)) q (44105 . 4)) ((c def c (c (? . 7) q group-by)) q (12665 . 5)) ((c def c (c (? . 17) q has-option-with-contract?)) q (17031 . 3)) ((c def c (c (? . 16) q pretty-format/print)) q (18489 . 5)) ((c def c (c (? . 4) q machine?)) c (? . 32)) ((c form c (c (? . 3) q let-values/debug)) q (5369 . 2)) ((c def c (c (? . 14) q flonum->bit-field)) q (8405 . 3)) ((c def c (c (? . 5) q add-compound-rewriters!)) q (46581 . 3)) ((c def c (c (? . 4) q machine-epsilon)) q (393 . 2)) ((c def c (c (? . 25) q at-find-pict)) q (44364 . 13)) ((c def c (c (? . 33) q in-syntax)) q (18975 . 3)) ((c form c (c (? . 10) q send/i)) q (10655 . 2)) ((c def c (c (? . 37) q struct->list)) q (19664 . 4)) ((c form c (c (? . 27) q mark-parameterize)) q (15144 . 2)) ((c form c (c (? . 29) q re)) q (1926 . 15)) ((c def c (c (? . 6) q rounded-rectangle/border)) q (31459 . 16)) ((c def c (c (? . 4) q struct:machine-accepting)) c (? . 11)) ((c def c (c (? . 17) q has-option?)) q (16974 . 3)) ((q form ((lib "unstable/open-place.rkt") open-place)) q (16073 . 2)) ((c def c (c (? . 34) q stop-recording)) q (14004 . 7)) ((c def c (c (? . 7) q extend)) q (11858 . 5)) ((c def c (c (? . 6) q shadow)) q (37098 . 13)) ((c def c (c (? . 14) q ordinal->flonum)) q (8714 . 3)) ((c form c (c (? . 6) q pict-combine)) q (30118 . 2)) ((c def c (c (? . 8) q syntax-map)) q (21174 . 4)) ((c def c (c (? . 0) q monitor:return)) c (? . 1)) ((c form c (c (? . 26) q plus)) q (2442 . 2)) ((c def c (c (? . 4) q machine-accepts?)) q (159 . 4)) ((c meth c (c (? . 30) q get)) q (25801 . 2)) ((c def c (c (? . 5) q current-atomic-rewriters)) q (45416 . 11)) ((c form c (c (? . 9) q items-slide)) q (41967 . 2)) ((c form c (c (? . 9) q small)) q (40563 . 2)) ((c def c (c (? . 2) q if/c)) q (2890 . 5)) ((c form c (c (? . 36) q ret)) q (22883 . 2)) ((q form ((lib "unstable/2d/cond.rkt") 2dcond)) q (23137 . 22)) ((c form c (c (? . 9) q two-columns)) q (41486 . 2)) ((c def c (c (? . 6) q pin-arrows-label-line)) q (35202 . 36)) ((c def c (c (? . 33) q in-slice)) q (19289 . 4)) ((c def c (c (? . 14) q -min.0)) q (9134 . 2)) ((c form c (c (? . 9) q slide/staged)) q (41851 . 2)) ((c def c (c (? . 7) q check-duplicate)) q (11949 . 8)) ((c form c (c (? . 9) q superscript)) q (40715 . 2)) ((c def c (c (? . 5) q add-atomic-rewriters!)) q (46300 . 6)) ((c def c (c (? . 35) q pslide-default-placer)) q (45238 . 4)) ((c def c (c (? . 16) q pretty-format/display)) q (18311 . 5)) ((c meth c (c (? . 21) q get-snip)) q (50909 . 2)) ((c def c (c (? . 0) q monitor:proj-label)) c (? . 15)) ((c def c (c (? . 8) q syntax-source-file-name)) q (21360 . 3)) ((c def c (c (? . 5) q postfix-rw)) q (47963 . 7)) ((c def c (c (? . 17) q invariant/c)) q (17102 . 11)) ((c def c (c (? . 4) q machine)) c (? . 32)) ((c form c (c (? . 29) q union)) q (2302 . 2)) ((c form c (c (? . 25) q ppict-do)) q (42046 . 2)) ((c def c (c (? . 2) q treeof)) q (3387 . 3)) ((c form c (c (? . 9) q reveal)) q (41896 . 2)) ((c def c (c (? . 6) q color/c)) q (28799 . 2)) ((c form c (c (? . 29) q nullset)) q (2342 . 2)) ((c form c (c (? . 36) q label)) q (22952 . 2)) ((c def c (c (? . 39) q find)) q (7437 . 11)) ((c form c (c (? . 9) q with-style)) q (40615 . 2)) ((c def c (c (? . 14) q bit-field->flonum)) q (8500 . 3)) ((c def c (c (? . 7) q list-prefix?)) q (11317 . 4)) ((c def c (c (? . 33) q sequence-lift)) q (19197 . 4)) ((c form c (c (? . 3) q with-syntax/debug)) q (5589 . 2)) ((c form c (c (? . 9) q bold)) q (40648 . 2)) ((c def c (c (? . 25) q ppict?)) q (42497 . 3)) ((c form c (c (? . 6) q pict-cond)) q (29714 . 5)) ((c def c (c (? . 43) q make-constructor-style-printer)) q (19823 . 6)) ((c def c (c (? . 25) q tile)) q (44248 . 4)) ((c form c (c (? . 37) q make)) q (19628 . 2)) ((c def c (c (? . 27) q mark-parameter-first)) q (14599 . 5)) ((c def c (c (? . 25) q placer?)) q (42864 . 3)) ((c def c (c (? . 22) q notify-box/pref)) q (26160 . 5)) ((c def c (c (? . 5) q set-cons-rw)) q (48918 . 2)) ((c def c (c (? . 5) q bracket-rw)) q (48639 . 6)) ((c def c (c (? . 25) q ppict-add*)) q (42735 . 4)) ((c def c (c (? . 25) q ppict-go)) q (42549 . 4)) ((c def c (c (? . 2) q truth/c)) q (3278 . 2)) ((c def c (c (? . 34) q start-recording)) q (13868 . 3)) ((c form c (c (? . 10) q define-interface-expander)) q (11193 . 2)) ((c def c (c (? . 27) q mark-parameter?)) c (? . 38)) ((c def c (c (? . 6) q black)) q (28356 . 3)) ((c def c (c (? . 6) q dark)) q (28740 . 3)) ((c def c (c (? . 6) q blur)) q (36912 . 5)) ((c def c (c (? . 39) q find-first)) q (7907 . 11)) ((c def c (c (? . 6) q circle/border)) q (30632 . 9)) ((c form c (c (? . 9) q with-scale)) q (40511 . 2)) ((c form c (c (? . 31) q in-phase1/pass2)) q (5841 . 2)) ((c def c (c (? . 6) q yellow)) q (28139 . 3)) ((c def c (c (? . 40) q hash-union)) q (9504 . 12)) ((c def c (c (? . 0) q monitor:call-app-label)) c (? . 18)) ((c def c (c (? . 5) q plistof)) q (46816 . 4)) ((c def c (c (? . 4) q struct:machine)) c (? . 32)) ((q form ((lib "unstable/recontract.rkt") recontract-out)) q (18804 . 2)) ((c form c (c (? . 36) q call)) q (22858 . 2)) ((c form c (c (? . 29) q complement)) q (2273 . 2)) ((c def c (c (? . 0) q monitor:call-f)) c (? . 18)) ((c form c (c (? . 3) q letrec-values/debug)) q (5514 . 2)) ((c def c (c (? . 0) q struct:monitor:call)) c (? . 18)) ((c form c (c (? . 29) q epsilon)) q (2327 . 2)) ((c form c (c (? . 3) q begin/debug)) q (4670 . 2)) ((c form c (c (? . 26) q intersection)) q (2530 . 2)) ((c def c (c (? . 6) q shadow-frame)) q (38192 . 27)) ((c def c (c (? . 0) q monitor:call?)) c (? . 18)) ((c form c (c (? . 41) q as)) q (15242 . 2)) ((c def c (c (? . 6) q hide)) q (29248 . 4)) ((c def c (c (? . 8) q syntax-within?)) q (21091 . 4)) ((c def c (c (? . 34) q with-logging-to-port)) q (13147 . 5)) ((c def c (c (? . 0) q monitor:return-label)) c (? . 1)) ((c def c (c (? . 0) q monitor:return-kws)) c (? . 1)) ((c meth c (c (? . 21) q on-size)) q (50982 . 4)) ((c form c (c (? . 3) q define/public/debug)) q (4864 . 3)) ((c def c (c (? . 0) q monitor:return-app-label)) c (? . 1)) ((c def c (c (? . 2) q rename-contract)) q (3101 . 4)) ((q form ((lib "unstable/2d/tabular.rkt") 2dmatch)) q (24714 . 26)) ((c def c (c (? . 0) q monitor:return-kw-args)) c (? . 1)) ((c form c (c (? . 9) q big)) q (40544 . 2)) ((c form c (c (? . 3) q debugf)) q (4548 . 5)) ((c def c (c (? . 22) q check-box/notify-box)) q (26771 . 8)) ((c def c (c (? . 5) q compound-rewriter/c)) q (46917 . 2)) ((c def c (c (? . 0) q monitor:return-f)) c (? . 1)) ((c form c (c (? . 42) q convert-compile-time-error)) q (14487 . 2)) ((c def c (c (? . 0) q monitor/c)) q (22703 . 5)) ((c form c (c (? . 3) q define/augment/debug)) q (5042 . 3)) ((c form c (c (? . 9) q italic)) q (40668 . 2)) ((c form c (c (? . 42) q convert-syntax-error)) q (14529 . 2)) ((c def c (c (? . 6) q ellipse/border)) q (30188 . 11)) ((c def c (c (? . 14) q -max.0)) q (9109 . 2)) ((c def c (c (? . 4) q machine-union)) q (590 . 4)) ((c def c (c (? . 14) q flstep)) q (8922 . 4)) ((c form c (c (? . 29) q rec)) q (2369 . 2)) ((c form c (c (? . 41) q object)) q (15845 . 10)) ((c def c (c (? . 7) q map/values)) q (12284 . 5)) ((c form c (c (? . 41) q define/match)) q (15342 . 17)) ((c def c (c (? . 6) q light)) q (28680 . 3)) ((c def c (c (? . 27) q mark-parameter-all)) q (14762 . 5)) ((c form c (c (? . 9) q with-size)) q (40480 . 2)) ((c meth c (c (? . 30) q set)) q (25845 . 3)) ((c def c (c (? . 25) q ppict-add)) q (42624 . 4)) ((c def c (c (? . 22) q menu-option/notify-box)) q (26470 . 8)) ((c form c (c (? . 10) q init-private/i)) q (11057 . 5)) ((c def c (c (? . 3) q dprintf)) q (4464 . 4)) ((c def c (c (? . 6) q red)) q (28032 . 3)) ((c form c (c (? . 6) q pict-if)) q (29584 . 5)) ((c def c (c (? . 6) q cyan)) q (28571 . 3)) ((c form c (c (? . 20) q define-parameter-group)) q (17620 . 7)) ((c form c (c (? . 9) q stage-name)) q (41833 . 2)) ((c def c (c (? . 8) q syntax-source-directory)) q (21276 . 3)) ((c def c (c (? . 6) q pin-arrow-label-line)) q (33509 . 36)) ((c def c (c (? . 35) q pslide-base-pict)) q (45113 . 4)) ((c form c (c (? . 29) q dseq)) q (2357 . 2)) ((c def c (c (? . 0) q monitor:call-label)) c (? . 18)) ((c def c (c (? . 17) q transfer/c)) q (16833 . 2)) ((c def c (c (? . 25) q grid)) q (43462 . 17)) ((c def c (c (? . 6) q green)) q (28194 . 3)) ((q def ((lib "unstable/gui/prefs.rkt") pref:get/set)) q (27864 . 3)) ((c form c (c (? . 36) q with-monitor)) q (22907 . 2)) ((c form c (c (? . 10) q send/apply/i)) q (10796 . 2)) ((c meth c (c (? . 30) q remove-listener)) q (25999 . 3)) ((c def c (c (? . 22) q menu-group/notify-box)) q (27545 . 8)) ((c def c (c (? . 9) q columns)) q (41581 . 3)) ((c form c (c (? . 9) q caps)) q (40742 . 2)) ((c def c (c (? . 6) q backdrop)) q (39879 . 4)) ((c def c (c (? . 4) q machine-accepting-next)) c (? . 11)) ((c form c (c (? . 44) q for*/async)) q (9259 . 2)) ((c def c (? . 30)) q (25652 . 3)) ((c def c (c (? . 0) q monitor:call)) c (? . 18)) ((c def c (c (? . 7) q filter-multiple)) q (11766 . 4)) ((c def c (c (? . 43) q prop:auto-custom-write)) q (20103 . 2)) ((c form c (c (? . 3) q parameterize/debug)) q (5724 . 2)) ((c def c (c (? . 2) q sequence/c)) q (3311 . 3)) ((c form c (c (? . 44) q for/async)) q (9209 . 2)) ((c form c (c (? . 10) q define/i)) q (10884 . 2)) ((c form c (c (? . 29) q star)) q (2315 . 2)) ((c def c (c (? . 27) q struct:mark-parameter)) c (? . 38)) ((c form c (c (? . 41) q match*?)) q (15291 . 2)) ((c def c (c (? . 5) q splice-rw)) q (48463 . 2)) ((c def c (c (? . 6) q tag-path?)) q (38137 . 3)) ((c def c (c (? . 33) q in-sequence-forever)) q (19100 . 4)) ((c def c (c (? . 6) q scale-to)) q (28965 . 6)) ((c def c (c (? . 25) q refpoint-placer?)) q (42917 . 3)) ((c def c (c (? . 14) q flprev)) q (9056 . 3)) ((c def c (c (? . 25) q coord)) q (42979 . 13)) ((c def c (c (? . 0) q monitor:proj?)) c (? . 15)) ((c form c (c (? . 6) q with-pict-combine)) q (30138 . 2)) ((c form c (c (? . 10) q define-interface/dynamic)) q (10584 . 2)) ((c def c (c (? . 9) q blank-line)) q (42012 . 2)) ((c form c (c (? . 3) q let*/debug)) q (5249 . 2)) ((c def c (c (? . 0) q monitor:proj-v)) c (? . 15)) ((c def c (c (? . 7) q drop-common-prefix)) q (11511 . 5)) ((c def c (c (? . 0) q monitor:call-proj-label)) c (? . 18)) ((c def c (c (? . 0) q monitor:return-proj-label)) c (? . 1)) ((q form ((lib "unstable/lazy-require.rkt") begin-on-demand)) q (11250 . 3)) ((c def c (c (? . 4) q machine-seq)) q (770 . 4))))
struct
(struct machine (next))
  next : (any/c . -> . machine?)
struct
(struct machine-accepting machine (next))
  next : (any/c . -> . machine?)
procedure
(machine-accepts? m i) -> boolean?
  m : machine?
  i : (listof any/c)
procedure
(machine-accepts?/prefix-closed m i) -> boolean?
  m : machine?
  i : (listof any/c)
value
machine-null : machine?
value
machine-epsilon : machine?
value
machine-sigma* : machine?
procedure
(machine-complement m) -> machine?
  m : machine?
procedure
(machine-star m) -> machine?
  m : machine?
procedure
(machine-union m0 m1) -> machine?
  m0 : machine?
  m1 : machine?
procedure
(machine-intersect m0 m1) -> machine?
  m0 : machine?
  m1 : machine?
procedure
(machine-seq m0 m1) -> machine?
  m0 : machine?
  m1 : machine?
procedure
(machine-seq* m0 make-m1) -> machine?
  m0 : machine?
  make-m1 : (-> machine?)
syntax
(dfa start
     (end ...)
     [state ([evt next-state]
             ...)]
     ...)
 
  start : identifier?
  end : identifier?
  state : identifier?
  next-state : identifier?
syntax
(nfa (start:id ...)
     (end:id ...)
     [state:id ([evt:expr (next-state:id ...)]
                ...)]
     ...)
 
  start : identifier?
  end : identifier?
  state : identifier?
  next-state : identifier?
syntax
epsilon
syntax
(nfa/ep (start:id ...)
        (end:id ...)
        [state:id ([epsilon (epsilon-state:id ...)]
                   ...
                   [evt:expr (next-state:id ...)]
                   ...)]
        ...)
 
  start : identifier?
  end : identifier?
  state : identifier?
  epsilon-state : identifier?
  next-state : identifier?
syntax
(re re-pat)
 
re-pat = (rec id re-pat)
       | ,expr
       | (complement re-pat)
       | (seq re-pat ...)
       | (union re-pat ...)
       | (star re-pat)
       | epsilon
       | nullset
       | re-transformer
       | (re-transformer . datum)
       | (dseq pat re-pat)
       | pat
syntax
complement
syntax
seq
syntax
union
syntax
star
syntax
epsilon
syntax
nullset
syntax
dseq
syntax
rec
syntax
(define-re-transformer id expr)
syntax
(opt re-pat)
syntax
(plus re-pat)
syntax
(rep re-pat num)
syntax
(difference re-pat_0 re-pat_1)
syntax
(intersection re-pat_0 re-pat_1)
syntax
(seq/close re-pat ...)
procedure
(read/bytes b) -> printable/c
  b : bytes?
procedure
(write/bytes v) -> bytes?
  v : printable/c
procedure
(non-empty-string? x) -> boolean?
  x : any/c
value
port-number? : contract?
value
tcp-listen-port? : contract?
value
path-piece? : contract?
procedure
(if/c predicate then-contract else-contract) -> contract?
  predicate : (-> any/c any/c)
  then-contract : contract?
  else-contract : contract?
value
failure-result/c : contract?
procedure
(rename-contract contract name) -> contract?
  contract : contract?
  name : any/c
procedure
(maybe/c contract) -> contract?
  contract : contract?
value
truth/c : flat-contract?
procedure
(sequence/c elem/c ...) -> contract?
  elem/c : contract?
procedure
(treeof elem-contract) -> contract?
  elem-contract : contract?
procedure
(wrap-expr/c  contract-expr            
              expr                     
             [#:positive pos-blame     
              #:negative neg-blame     
              #:name expr-name         
              #:macro macro-name       
              #:context context])  -> syntax?
  contract-expr : syntax?
  expr : syntax?
  pos-blame : (or/c syntax? string? module-path-index?
                    'from-macro 'use-site 'unknown)
            = 'use-site
  neg-blame : (or/c syntax? string? module-path-index?
                    'from-macro 'use-site 'unknown)
            = 'from-macro
  expr-name : (or/c identifier? symbol? string? #f) = #f
  macro-name : (or/c identifier? symbol? string? #f) = #f
  context : (or/c syntax? #f) = (current-syntax-context)
syntax
(debug options ... expr)
 
options = #:name name-expr
        | #:source srcloc-expr
procedure
(dprintf fmt arg ...) -> void?
  fmt : string?
  arg : any/c
syntax
(debugf function-expr argument ...)
 
argument = argument-expr
         | argument-keyword argument-expr
syntax
(begin/debug expr ...)
syntax
(define/debug id expr)
(define/debug (head args) body ...+)
syntax
(define/private/debug id expr)
(define/private/debug (head args) body ...+)
syntax
(define/public/debug id expr)
(define/public/debug (head args) body ...+)
syntax
(define/override/debug id expr)
(define/override/debug (head args) body ...+)
syntax
(define/augment/debug id expr)
(define/augment/debug (head args) body ...+)
syntax
(let/debug ([lhs-id rhs-expr] ...) body ...+)
(let/debug loop-id ([lhs-id rhs-expr] ...) body ...+)
syntax
(let*/debug ([lhs-id rhs-expr] ...) body ...+)
syntax
(letrec/debug ([lhs-id rhs-expr] ...) body ...+)
syntax
(let-values/debug ([(lhs-id ...) rhs-expr] ...) body ...+)
syntax
(let*-values/debug ([(lhs-id ...) rhs-expr] ...) body ...+)
syntax
(letrec-values/debug ([(lhs-id ...) rhs-expr] ...) body ...+)
syntax
(with-syntax/debug ([pattern stx-expr] ...) body ...+)
syntax
(with-syntax*/debug ([pattern stx-expr] ...) body ...+)
syntax
(parameterize/debug ([param-expr value-expr] ...) body ...+)
syntax
(at-end expr)
syntax
(in-phase1 e)
syntax
(in-phase1/pass2 e)
procedure
(raise-misc-error  name                              
                   message                           
                   field                             
                   value ...                         
                   ...                               
                  [#:continued continued-message     
                   #:constructor constructor])   -> any
  name : symbol?
  message : string?
  field : (let ([option/c (or/c 'value 'multi 'maybe)])
            (or/c string? (cons/c string? (listof option/c))))
  value : any/c
  continued-message : (or/c string? (listof string?)) = null
  constructor : (-> string? continuation-mark-set? exn?)
              = exn:fail
procedure
(compose-error-message  name                                
                        message                             
                        field                               
                        value ...                           
                        ...                                 
                       [#:continued continued-message]) -> string?
  name : symbol?
  message : string?
  field : (let ([option/c (or/c 'value 'multi 'maybe)])
            (or/c string? (cons/c string? (listof option/c))))
  value : any/c
  continued-message : (or/c string? (listof string?)) = null
procedure
(make-directory*/ignore-exists-exn pth) -> void
  pth : path-string?
procedure
(find  pred                                
       x                                   
      [#:stop-on-found? stop-on-found?     
       #:stop stop                         
       #:get-children get-children])   -> list?
  pred : (-> any/c any/c)
  x : any/c
  stop-on-found? : any/c = #f
  stop : (or/c #f (-> any/c any/c)) = #f
  get-children : (or/c #f (-> any/c (or/c #f list?))) = #f
procedure
(find-first  pred                            
             x                               
            [#:stop stop                     
             #:get-children get-children     
             #:default default])         -> any/c
  pred : (-> any/c any/c)
  x : any/c
  stop : (or/c #f (-> any/c any/c)) = #f
  get-children : (or/c #f (-> any/c (or/c #f list?))) = #f
  default : any/c = (lambda () (error ....))
procedure
(flonum->bit-field x) -> (integer-in 0 (- (expt 2 64) 1))
  x : flonum?
procedure
(bit-field->flonum i) -> flonum?
  i : (integer-in 0 (- (expt 2 64) 1))
procedure
(flonum->ordinal x)
 -> (integer-in (- (- (expt 2 63) 1)) (- (expt 2 63) 1))
  x : flonum?
procedure
(ordinal->flonum i) -> flonum?
  i : (integer-in (- (- (expt 2 63) 1)) (- (expt 2 63) 1))
procedure
(flonums-between x y) -> exact-integer?
  x : flonum?
  y : flonum?
procedure
(flstep x n) -> flonum?
  x : flonum?
  n : exact-integer?
procedure
(flnext x) -> flonum?
  x : flonum?
procedure
(flprev x) -> flonum?
  x : flonum?
value
-max.0 : flonum?
value
-min.0 : flonum?
value
+min.0 : flonum?
value
+max.0 : flonum?
syntax
(for/async (for-clause ...) body ...+)
syntax
(for*/async (for-clause ...) body ...+)
procedure
((conjoin f ...) x ...) -> boolean?
  f : (-> A ... boolean?)
  x : A
procedure
((disjoin f ...) x ...) -> boolean?
  f : (-> A ... boolean?)
  x : A
procedure
(hash-union  h0                          
             h ...                       
            [#:combine combine           
             #:combine/key combine/key]) 
 -> (and/c hash? hash-can-functional-set?)
  h0 : (and/c hash? hash-can-functional-set?)
  h : hash?
  combine : (-> any/c any/c any/c)
          = (lambda _ (error 'hash-union ....))
  combine/key : (-> any/c any/c any/c any/c)
              = (lambda (k a b) (combine a b))
procedure
(hash-union!  h0                              
              h ...                           
             [#:combine combine               
              #:combine/key combine/key]) -> void?
  h0 : (and/c hash? hash-mutable?)
  h : hash?
  combine : (-> any/c any/c any/c)
          = (lambda _ (error 'hash-union ....))
  combine/key : (-> any/c any/c any/c any/c)
              = (lambda (k a b) (combine a b))
syntax
(define-interface name-id (super-ifc-id ...) (method-id ...))
syntax
(define-interface/dynamic name-id ifc-expr (method-id ...))
syntax
(send/i obj-exp static-ifc-id method-id arg-expr ...)
syntax
(send*/i obj-expr static-ifc-id (method-id arg-expr ...) ...)
syntax
(send/apply/i obj-expr static-ifc-id method-id arg-expr ... list-arg-expr)
syntax
(define/i id static-ifc-id expr)
syntax
(init/i (id static-ifc-id maybe-default-expr) ...)
syntax
(init-field/i (id static-ifc-id maybe-default-expr) ...)
syntax
(init-private/i (id static-ifc-id maybe-default-expr) ...)
 
maybe-default-expr = ()
                   | default-expr
syntax
(define-interface-expander id transformer-expr)
syntax
(begin-on-demand #:export (fun-id ...)
   body ...+)
procedure
(list-prefix? l r) -> boolean?
  l : list?
  r : list?
procedure
(take-common-prefix l r #:same? same?) -> list?
  l : list?
  r : list?
  same? : equal?
procedure
(drop-common-prefix l r #:same same?) -> list? list?
  l : list?
  r : list?
  same? : equal?
procedure
(split-common-prefix l r #:same? same?) -> list? list? list?
  l : list?
  r : list?
  same? : equal?
procedure
(filter-multiple l f ...) -> list? ...
  l : list?
  f : procedure?
procedure
(extend l1 l2 v) -> list?
  l1 : list?
  l2 : list?
  v : any/c
procedure
(check-duplicate  lst                   
                 [#:key extract-key     
                  #:same? same?])   -> (or/c any/c #f)
  lst : list?
  extract-key : (-> any/c any/c) = (lambda (x) x)
  same? : (or/c (any/c any/c . -> . any/c) = equal?
                dict?)
procedure
(map/values n f lst ...) -> (listof B_1) ... (listof B_n)
  n : natural-number/c
  f : (-> A ... (values B_1 ... B_n))
  lst : (listof A)
procedure
(map2 f lst ...) -> (listof B) (listof C)
  f : (-> A ... (values B C))
  lst : (listof A)
procedure
(remf pred lst) -> list?
  pred : procedure?
  lst : list?
procedure
(group-by =? lst [#:key extract-key]) -> (listof (listof A))
  =? : (-> B B any/c)
  lst : (listof A)
  extract-key : (-> A B) = values
procedure
(list-update lst index updater) -> list?
  lst : list?
  index : (and/c (>=/c 0) (</c (length lst)))
  updater : (-> any/c any/c)
procedure
(list-set lst index value) -> list?
  lst : list?
  index : (and/c (>=/c 0) (</c (length lst)))
  value : any/c
procedure
(with-logging-to-port port proc log-spec ...) -> any
  port : output-port?
  proc : (-> any)
  log-spec : (or/c 'fatal 'error 'warning 'info 'debug symbol? #f)
procedure
(with-intercepted-logging interceptor       
                          proc              
                          log-spec ...) -> any
  interceptor : (-> (vector/c
                      (or/c 'fatal 'error 'warning 'info 'debug)
                      string?
                      any/c
                      (or/c symbol? #f))
                     any)
  proc : (-> any)
  log-spec : (or/c 'fatal 'error 'warning 'info 'debug symbol? #f)
procedure
(start-recording log-spec ...) -> listener?
  log-spec : (or/c 'fatal 'error 'warning 'info 'debug symbol? #f)
procedure
(stop-recording listener)
 -> (listof (vector/c (or/c 'fatal 'error 'warning 'info 'debug)
                      string?
                      any/c
                      (or/c symbol? #f)))
  listener : listener?
syntax
(phase1-eval ct-expr maybe-quote maybe-catch?)
 
maybe-quote  = 
             | #:quote quote-id
                
maybe-catch? = 
             | #:catch? catch?
syntax
(convert-compile-time-error expr)
syntax
(convert-syntax-error expr)
struct
(struct mark-parameter ())
procedure
(mark-parameter-first mp [tag]) -> any/c
  mp : mark-parameter?
  tag : continuation-prompt-tag?
      = default-continuation-prompt-tag
procedure
(mark-parameter-all mp [tag]) -> list?
  mp : mark-parameter?
  tag : continuation-prompt-tag?
      = default-continuation-prompt-tag
procedure
(mark-parameters-all mps none-v [tag]) -> (listof vector?)
  mps : (listof mark-parameter?)
  none-v : [any/c #f]
  tag : continuation-prompt-tag?
      = default-continuation-prompt-tag
syntax
(mark-parameterize ([mp expr] ...) body-expr ...)
syntax
(match? val-expr pat ...)
syntax
(as ([lhs-id rhs-expr] ...) pat ...)
syntax
(match*? (val-expr ...) (pat ...) ...)
syntax
(define/match (head args)
  match*-clause ...)
 
head          = id
              | (head args)
                 
args          = arg ...
              | arg ... . rest-id
                 
arg           = arg-id
              | [arg-id default-expr]
              | keyword arg-id
              | keyword [arg-id default-expr]
                 
match*-clause = [(pat ...+) body ...+]
              | [(pat ...+) (=> id) body ...+]
syntax
(object maybe-class field-clause ...)
 
maybe-class  = 
             | class-expr
                
field-clause = (field field-id maybe-pat)
                
maybe-pat    = 
             | pat
syntax
(open-place id body ...+)
procedure
(option/c  c                         
          [#:with-contract with      
           #:tester tester           
           #:invariant invariant     
           #:immutable immutable     
           #:flat? flat?             
           #:struct struct-id])  -> contract?
  c : contract?
  with : boolean? = #f
  tester : (or/c (-> any boolean?) 'dont-care) = 'dont-care
  invariant : (or/c (-> any boolean?) 'dont-care) = 'dont-care
  immutable : (or/c #t #f 'dont-care) = 'dont-care
  flat? : boolean? = #f
  struct-id : (or/c identifier? 'none) = 'none
procedure
(exercise-option x) -> any/c
  x : any/c
value
transfer/c : contract?
procedure
(waive-option x) -> any/c
  x : any/c
procedure
(tweak-option x) -> any/c
  x : any/c
procedure
(has-option? v) -> boolean?
  v : any/c
procedure
(has-option-with-contract? v) -> boolean?
  v : any/c
procedure
(invariant/c  c                         
              invariant                 
             [#:immutable immutable     
              #:flat? flat?             
              #:struct struct-id])  -> contract?
  c : contract?
  invariant : (-> any boolean?)
  immutable : (or/c #t #f 'dont-care) = 'dont-care
  flat? : boolean? = #f
  struct-id : (or/c identifier? 'none) = 'none
procedure
(parameter-group? v) -> boolean?
  v : any/c
syntax
(define-parameter-group name (param-or-group-expr ...) options)
 
options = 
        | #:struct struct-name
 
  param-or-group-expr : (or/c parameter? parameter-group?)
syntax
(parameterize/group ([param-or-group-expr  value-expr] ...)
  body-expr ...+)
 
  param-or-group-expr : (or/c parameter? parameter-group?)
syntax
(parameterize*/group ([param-or-group-expr  value-expr] ...)
  body-expr ...+)
 
  param-or-group-expr : (or/c parameter? parameter-group?)
procedure
(pretty-format/write x [columns]) -> string?
  x : any/c
  columns : (or/c exact-nonnegative-integer? 'infinity)
          = (pretty-print-columns)
procedure
(pretty-format/display x [columns]) -> string?
  x : any/c
  columns : (or/c exact-nonnegative-integer? 'infinity)
          = (pretty-print-columns)
procedure
(pretty-format/print x [columns]) -> string?
  x : any/c
  columns : (or/c exact-nonnegative-integer? 'infinity)
          = (pretty-print-columns)
procedure
(break-lines s [columns]) -> string?
  s : string?
  columns : exact-nonnegative-integer? = (pretty-print-columns)
syntax
(recontract-out id ...)
procedure
(make-log-based-eval log-file mode) -> (-> any/c any)
  log-file : path-string?
  mode : (or/c 'record 'replay)
procedure
(in-syntax stx) -> sequence?
  stx : syntax?
procedure
(in-pairs seq) -> sequence?
  seq : sequence?
procedure
(in-sequence-forever seq val) -> sequence?
  seq : sequence?
  val : any/c
procedure
(sequence-lift f seq) -> sequence?
  f : procedure?
  seq : sequence?
procedure
(in-slice length seq) -> sequence?
  length : exact-positive-integer?
  seq : sequence?
procedure
(regexp-filter pattern lst)
 -> (listof (or/c string? bytes? path? input-port?))
  pattern : (or/c string? bytes? regexp? byte-regexp?)
  lst : (listof (or/c string? bytes? path? input-port?))
syntax
(make struct-id expr ...)
procedure
(struct->list v [#:on-opaque on-opaque]) -> (or/c list? #f)
  v : any/c
  on-opaque : (or/c 'error 'return-false 'skip) = 'error
procedure
(make-constructor-style-printer get-constructor 
                                get-contents)   
 -> (-> any/c output-port? (or/c #t #f 0 1) void?)
  get-constructor : (-> any/c (or/c symbol? string?))
  get-contents : (-> any/c sequence?)
value
prop:auto-custom-write : (struct-type-property/c 'constructor)
procedure
(explode-module-path-index mpi)
 -> (listof (or/c module-path? resolved-module-path? #f))
  mpi : module-path-index?
syntax
(phase-of-enclosing-module)
procedure
(make-variable-like-transformer  reference-stx 
                                [setter-stx])  
 -> set!-transformer?
  reference-stx : syntax?
  setter-stx : (or/c syntax? #f) = #f
procedure
(format-unique-id  lctx              
                   fmt               
                   v ...             
                  [#:source src      
                   #:props props     
                   #:cert cert]) -> identifier?
  lctx : (or/c syntax? #f)
  fmt : string?
  v : (or/c string? symbol? identifier? keyword? char? number?)
  src : (or/c syntax? #f) = #f
  props : (or/c syntax? #f) = #f
  cert : (or/c syntax? #f) = #f
procedure
(syntax-within? a b) -> boolean?
  a : syntax?
  b : syntax?
procedure
(syntax-map f stxl ...) -> (listof A)
  f : (-> syntax? A)
  stxl : syntax?
procedure
(syntax-source-directory stx) -> (or/c path? #f)
  stx : syntax?
procedure
(syntax-source-file-name stx) -> (or/c path? #f)
  stx : syntax?
struct
(struct monitor (label)
        #:transparent)
  label : symbol?
struct
(struct monitor:proj monitor (label proj-label v)
        #:transparent)
  label : symbol?
  proj-label : symbol?
  v : any/c
struct
(struct monitor:call monitor (label
                             proj-label
                             f
                             app-label
                             kws
                             kw-args
                             args)
        #:transparent)
  label : symbol?
  proj-label : symbol?
  f : procedure?
  app-label : symbol?
  kws : (listof keyword?)
  kw-args : list?
  args : list?
struct
(struct monitor:return monitor (label
                               proj-label
                               f
                               app-label
                               kws
                               kw-args
                               args
                               rets)
        #:transparent)
  label : symbol?
  proj-label : symbol?
  f : procedure?
  app-label : symbol?
  kws : (listof keyword?)
  kw-args : list?
  args : list?
  rets : list?
procedure
(monitor/c monitor-allows? label c) -> contract?
  monitor-allows? : (-> monitor? boolean?)
  label : symbol?
  c : contract?
syntax
(call n a ...)
syntax
(ret n a ...)
syntax
(with-monitor contract-expr re-pat)
syntax
(label id contract-expr)
value
unix-socket-available? : boolean?
procedure
(unix-socket-connect socket-path) -> input-port? output-port?
  socket-path : path-string?
syntax
(2dcond cond-content)
 
cond-content  = question-row
                body-row
                ⋮
                 
question-row  = empty-cell question-cell ⋯
                 
body-row      = question-cell exprs-cell ⋯
                 
question-cell = ╔═════════════╗
                ║question-expr║
                ╚═════════════╝
                 
empty-cell    = ╔═══╗
                ║   ║
                ╚═══╝
                 
exprs-cell    = ╔═════════════╗
                ║expr expr ...║
                ╚═════════════╝
syntax
(2dmatch match-content)
 
match-content   = match-first-row
                  match-row
                  ⋮
                   
match-first-row = two-expr-cell match-pat-cell ⋯
                   
match-row       = match-pat-cell exprs-cell ⋯
                   
two-expr-cell   = ╔═════════════════╗
                  ║col-expr row-expr║
                  ╚═════════════════╝
                   
match-pat-cell  = ╔═════╗
                  ║ pat ║
                  ╚═════╝
                   
exprs-cell      = ╔═════════════╗
                  ║expr expr ...║
                  ╚═════════════╝
syntax
(2dmatch tabular-content)
 
tabular-content = tabular-row
                  ⋮
                | tabular-row
                  ⋮
                  style-cell
                   
tabular-row     = tabular-cell ⋯
                   
tabular-cell    = ╔════════════════╗
                  ║tabular-expr ...║
                  ╚════════════════╝
                   
style-cell      = ╔═════════════════╗
                  ║style-content ...║
                  ╚═════════════════╝
                   
style-content   = #:style style-expr
                | #:sep sep-expr
                | #:ignore-first-row
 
  style-expr : style?
  sep-expr : (or/c block? content? #f)
  tabular-expr : (or/c block? content?)
class
notify-box% : class?
  superclass: object%
constructor
(new notify-box% [value value]) -> (is-a?/c notify-box%)
  value : any/c
method
(send a-notify-box get) -> any/c
method
(send a-notify-box set v) -> void?
  v : any/c
method
(send a-notify-box listen listener) -> void?
  listener : (-> any/c any)
method
(send a-notify-box remove-listener listener) -> void?
  listener : (-> any/c any)
method
(send a-notify-box remove-all-listeners) -> void?
procedure
(notify-box/pref  proc                        
                 [#:readonly? readonly?]) -> (is-a?/c notify-box%)
  proc : (case-> (-> any/c) (-> any/c void?))
  readonly? : boolean? = #f
syntax
(define-notify name value-expr)
 
  value-expr : (is-a?/c notify-box%)
procedure
(menu-option/notify-box parent      
                        label       
                        notify-box) 
 -> (is-a?/c checkable-menu-item%)
  parent : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))
  label : label-string?
  notify-box : (is-a?/c notify-box%)
procedure
(check-box/notify-box parent          
                      label           
                      notify-box) -> (is-a?/c check-box%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  label : label-string?
  notify-box : (is-a?/c notify-box%)
procedure
(choice/notify-box parent          
                   label           
                   choices         
                   notify-box) -> (is-a?/c choice%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  label : label-string?
  choices : (listof label-string?)
  notify-box : (is-a?/c notify-box%)
procedure
(menu-group/notify-box parent      
                       labels      
                       notify-box) 
 -> (listof (is-a?/c checkable-menu-item%))
  parent : (or/c (is-a?/c menu%) (is-a?/c popup-menu%))
  labels : (listof label-string?)
  notify-box : (is-a?/c notify-box%)
procedure
(pref:get/set pref) -> (case-> (-> any/c) (-> any/c void?))
  pref : symbol?
procedure
(color c p) -> pict?
  c : color/c
  p : pict?
procedure
(red pict) -> pict?
  pict : pict?
procedure
(orange pict) -> pict?
  pict : pict?
procedure
(yellow pict) -> pict?
  pict : pict?
procedure
(green pict) -> pict?
  pict : pict?
procedure
(blue pict) -> pict?
  pict : pict?
procedure
(purple pict) -> pict?
  pict : pict?
procedure
(black pict) -> pict?
  pict : pict?
procedure
(brown pict) -> pict?
  pict : pict?
procedure
(gray pict) -> pict?
  pict : pict?
procedure
(white pict) -> pict?
  pict : pict?
procedure
(cyan pict) -> pict?
  pict : pict?
procedure
(magenta pict) -> pict?
  pict : pict?
procedure
(light color) -> color/c
  color : color/c
procedure
(dark color) -> color/c
  color : color/c
value
color/c : flat-contract?
procedure
(fill pict width height) -> pict?
  pict : pict?
  width : (or/c real? #f)
  height : (or/c real? #f)
procedure
(scale-to pict width height [#:mode mode]) -> pict?
  pict : pict?
  width : real?
  height : real?
  mode : (or/c 'preserve 'inset 'distort) = 'preserve
procedure
(show pict [show?]) -> pict?
  pict : pict?
  show? : truth/c = #t
procedure
(hide pict [hide?]) -> pict?
  pict : pict?
  hide? : truth/c = #t
procedure
(strike pict [strike?]) -> pict?
  pict : pict?
  strike? : truth/c = #t
procedure
(shade pict [shade? #:ratio ratio]) -> pict?
  pict : pict?
  shade? : truth/c = #t
  ratio : (real-in 0 1) = 1/2
syntax
(pict-if maybe-combine test-expr then-expr else-expr)
 
maybe-combine = 
              | #:combine combine-expr
syntax
(pict-cond maybe-combine [test-expr pict-expr] ...)
 
maybe-combine = 
              | #:combine combine-expr
syntax
(pict-case test-expr maybe-combine [literals pict-expr] ...)
 
maybe-combine = 
              | #:combine combine-expr
syntax
(pict-match test-expr maybe-combine [pattern pict-expr] ...)
 
maybe-combine = 
              | #:combine combine-expr
syntax
pict-combine
syntax
(with-pict-combine combine-id body ...)
procedure
(ellipse/border  w                                 
                 h                                 
                [#:color color                     
                 #:border-color border-color       
                 #:border-width border-width]) -> pict?
  w : real?
  h : real?
  color : color/c = "white"
  border-color : color/c = "black"
  border-width : real? = 2
procedure
(circle/border  diameter                          
               [#:color color                     
                #:border-color border-color       
                #:border-width border-width]) -> pict?
  diameter : real?
  color : color/c = "white"
  border-color : color/c = "black"
  border-width : real? = 2
procedure
(rectangle/border  w                                 
                   h                                 
                  [#:color color                     
                   #:border-color border-color       
                   #:border-width border-width]) -> pict?
  w : real?
  h : real?
  color : color/c = "white"
  border-color : color/c = "black"
  border-width : real? = 2
procedure
(rounded-rectangle/border  w                             
                           h                             
                          [#:color color                 
                           #:border-color border-color   
                           #:border-width border-width   
                           #:corner-radius corner-radius 
                           #:angle angle])               
 -> pict?
  w : real?
  h : real?
  color : color/c = "white"
  border-color : color/c = "black"
  border-width : real? = 2
  corner-radius : real? = -0.25
  angle : real? = 0
procedure
(pin-label-line  label                         
                 pict                          
                 src-pict                      
                 src-coord-fn                  
                 dest-pict                     
                 dest-coord-fn                 
                [#:start-angle start-angle     
                 #:end-angle end-angle         
                 #:start-pull start-pull       
                 #:end-pull end-pull           
                 #:line-width line-width       
                 #:color color                 
                 #:under? under?               
                 #:x-adjust x-adjust           
                 #:y-adjust y-adjust])     -> pict?
  label : pict?
  pict : pict?
  src-pict : pict-path?
  src-coord-fn : (-> pict-path? (values real? real?))
  dest-pict : pict-path?
  dest-coord-fn : (-> pict-path? (values real? real?))
  start-angle : (or/c real? #f) = #f
  end-angle : (or/c real? #f) = #f
  start-pull : real? = 1/4
  end-pull : real? = 1/4
  line-width : (or/c real? #f) = #f
  color : (or/c #f string? (is-a?/c color%)) = #f
  under? : any/c = #f
  x-adjust : real? = 0
  y-adjust : real? = 0
procedure
(pin-arrow-label-line  label                             
                       arrow-size                        
                       pict                              
                       src-pict                          
                       src-coord-fn                      
                       dest-pict                         
                       dest-coord-fn                     
                      [#:start-angle start-angle         
                       #:end-angle end-angle             
                       #:start-pull start-pull           
                       #:end-pull end-pull               
                       #:line-width line-width           
                       #:color color                     
                       #:under? under?                   
                       #:hide-arrowhead? hide-arrowhead? 
                       #:x-adjust x-adjust               
                       #:y-adjust y-adjust])             
 -> pict?
  label : pict?
  arrow-size : real?
  pict : pict?
  src-pict : pict-path?
  src-coord-fn : (-> pict-path? (values real? real?))
  dest-pict : pict-path?
  dest-coord-fn : (-> pict-path? (values real? real?))
  start-angle : (or/c real? #f) = #f
  end-angle : (or/c real? #f) = #f
  start-pull : real? = 1/4
  end-pull : real? = 1/4
  line-width : (or/c real? #f) = #f
  color : (or/c #f string? (is-a?/c color%)) = #f
  under? : any/c = #f
  hide-arrowhead? : any/c = #f
  x-adjust : real? = 0
  y-adjust : real? = 0
procedure
(pin-arrows-label-line  label                             
                        arrow-size                        
                        pict                              
                        src-pict                          
                        src-coord-fn                      
                        dest-pict                         
                        dest-coord-fn                     
                       [#:start-angle start-angle         
                        #:end-angle end-angle             
                        #:start-pull start-pull           
                        #:end-pull end-pull               
                        #:line-width line-width           
                        #:color color                     
                        #:under? under?                   
                        #:hide-arrowhead? hide-arrowhead? 
                        #:x-adjust x-adjust               
                        #:y-adjust y-adjust])             
 -> pict?
  label : pict?
  arrow-size : real?
  pict : pict?
  src-pict : pict-path?
  src-coord-fn : (-> pict-path? (values real? real?))
  dest-pict : pict-path?
  dest-coord-fn : (-> pict-path? (values real? real?))
  start-angle : (or/c real? #f) = #f
  end-angle : (or/c real? #f) = #f
  start-pull : real? = 1/4
  end-pull : real? = 1/4
  line-width : (or/c real? #f) = #f
  color : (or/c #f string? (is-a?/c color%)) = #f
  under? : any/c = #f
  hide-arrowhead? : any/c = #f
  x-adjust : real? = 0
  y-adjust : real? = 0
procedure
(blur p h-radius [v-radius]) -> pict?
  p : pict?
  h-radius : (and/c real? (not/c negative?))
  v-radius : (and/c real? (not/c negative?)) = h-radius
procedure
(shadow  p                                 
         radius                            
        [dx                                
         dy                                
         #:color color                     
         #:shadow-color shadow-color]) -> pict?
  p : pict?
  radius : (and/c real? (not/c negative?))
  dx : real? = 0
  dy : real? = dx
  color : (or/c #f string? (is-a?/c color%)) = #f
  shadow-color : (or/c #f string? (is-a?/c color%)) = #f
procedure
(blur-bitmap! bitmap h-radius [v-radius]) -> void?
  bitmap : (is-a?/c bitmap%)
  h-radius : (and/c real? (not/c negative?))
  v-radius : (and/c real? (not/c negative?)) = h-radius
procedure
(tag-pict p tag) -> pict?
  p : pict?
  tag : symbol?
procedure
(find-tag p find) -> (or/c pict-path? #f)
  p : pict?
  find : tag-path?
procedure
(find-tag* p find) -> (listof pict-path?)
  p : pict?
  find : tag-path?
procedure
(tag-path? x) -> boolean?
  x : any/c
procedure
(shadow-frame  pict                                            
               ...                                             
              [#:sep separation                                
               #:margin margin                                 
               #:background-color bg-color                     
               #:frame-color frame-color                       
               #:frame-line-width frame-line-width             
               #:shadow-side-length shadow-side-length         
               #:shadow-top-y-offset shadow-top-y-offset       
               #:shadow-bottom-y-offset shadow-bottom-y-offset 
               #:shadow-descent shadow-descent                 
               #:shadow-alpha-factor shadow-alpha-factor       
               #:blur blur-radius])                            
 -> pict?
  pict : pict?
  separation : real? = 5
  margin : real? = 20
  bg-color : (or/c string? (is-a?/c color%)) = "white"
  frame-color : (or/c string? (is-a?/c color%)) = "gray"
  frame-line-width : (or/c real? #f) = 0
  shadow-side-length : real? = 4
  shadow-top-y-offset : real? = 10
  shadow-bottom-y-offset : real? = 4
  shadow-descent : (and/c real? (not/c negative?)) = 40
  shadow-alpha-factor : real? = 3/4
  blur-radius : (and/c real? (not/c negative?)) = 20
procedure
(arch outer-width      
      inner-width      
      solid-height     
      leg-height)  -> pict?
  outer-width : real?
  inner-width : real?
  solid-height : real?
  leg-height : real?
procedure
(backdrop pict [#:color color]) -> pict?
  pict : pict?
  color : color/c = "white"
procedure
(cross-out  pict                
           [#:width width       
            #:style style       
            #:color color]) -> pict?
  pict : pict?
  width : real? = 1
  style : (or/c 'transparent 'solid 'xor            = 'solid
                'hilite 'dot 'long-dash 'short-dash
                'dot-dash 'xor-dot 'xor-long-dash
                'xor-short-dash 'xor-dot-dash)
  color : color/c = "black"
syntax
(with-size size expr)
syntax
(with-scale scale expr)
syntax
(big text)
syntax
(small text)
syntax
(with-font font expr)
syntax
(with-style style expr)
syntax
(bold text)
syntax
(italic text)
syntax
(subscript text)
syntax
(superscript text)
syntax
(caps text)
procedure
(tabular  row                   
          ...                   
         [#:gap gap             
          #:hgap hgap           
          #:vgap vgap           
          #:align align         
          #:halign halign       
          #:valign valign]) -> pict?
  row : (listof (or/c string? pict?))
  gap : natural-number/c = gap-size
  hgap : natural-number/c = gap
  vgap : natural-number/c = gap
  align : (->* [] [] #:rest (listof pict?) pict?)
        = lbl-superimpose
  halign : (->* [] [] #:rest (listof pict?) pict?) = align
  valign : (->* [] [] #:rest (listof pict?) pict?) = align
syntax
(two-columns one two)
procedure
(mini-slide pict ...) -> pict?
  pict : pict?
procedure
(columns pict ...) -> pict?
  pict : pict?
syntax
(column width body ...)
procedure
(column-size n [r]) -> real?
  n : exact-positive-integer?
  r : real? = (/ n)
syntax
(staged [name ...] body ...)
syntax
stage
syntax
stage-name
syntax
(slide/staged [name ...] arg ...)
syntax
(reveal number expr ...)
syntax
(revealing-slide expr ...)
syntax
(items-slide (name ...) expr ...)
procedure
(blank-line) -> pict?
syntax
(ppict-do base-expr ppict-do-fragment ...)
syntax
(ppict-do* base-expr ppic-do-fragment ...)
 
ppict-do-fragment = #:go placer-expr
                  | #:set pict-expr
                  | #:next
                  | #:alt (ppict-do-fragment ...)
                  | elem-expr
 
  base-expr : pict?
  placer-expr : placer?
  pict-expr : pict?
  elem-expr : (or/c pict? real? #f)
syntax
ppict-do-state
procedure
(ppict? x) -> boolean?
  x : any/c
procedure
(ppict-go p pl) -> ppict?
  p : pict?
  pl : placer?
procedure
(ppict-add pp elem ...) -> pict?
  pp : ppict?
  elem : (or/c pict? real? #f 'next)
procedure
(ppict-add* pp elem ...) -> pict? (listof pict?)
  pp : ppict?
  elem : (or/c pict? real? #f 'next)
procedure
(placer? x) -> boolean?
  x : any/c
procedure
(refpoint-placer? x) -> boolean?
  x : any/c
procedure
(coord  rel-x                    
        rel-y                    
       [align                    
        #:abs-x abs-x            
        #:abs-y abs-y            
        #:compose composer]) -> refpoint-placer?
  rel-x : real?
  rel-y : real?
  align : (or/c 'lt 'ct 'rt 'lc 'cc 'rc 'lb 'cb 'rb) = 'cc
  abs-x : real? = 0
  abs-y : real? = 0
  composer : procedure? = computed from align
procedure
(grid  cols                     
       rows                     
       col                      
       row                      
      [align                    
       #:abs-x abs-x            
       #:abs-y abs-y            
       #:compose composer]) -> refpoint-placer?
  cols : exact-positive-integer?
  rows : exact-positive-integer?
  col : exact-integer?
  row : exact-integer?
  align : (or/c 'lt 'ct 'rt 'lc 'cc 'rc 'lb 'cb 'rb) = 'cc
  abs-x : real? = 0
  abs-y : real? = 0
  composer : procedure? = computed from align
procedure
(cascade [step-x step-y]) -> placer?
  step-x : (or/c real? 'auto) = 'auto
  step-y : (or/c real? 'auto) = 'auto
procedure
(tile cols rows) -> placer?
  cols : exact-positive-integer?
  rows : exact-positive-integer?
procedure
(at-find-pict  find-path                
              [finder                   
               align                    
               #:abs-x abs-x            
               #:abs-y abs-y            
               #:compose composer]) -> refpoint-placer?
  find-path : (or/c tag-path? pict-path?)
  finder : procedure? = cc-find
  align : (or/c 'lt 'ct 'rt 'lc 'cc 'rc 'lb 'cb 'rb) = 'cc
  abs-x : real? = 0
  abs-y : real? = 0
  composer : procedure? = computed from align
procedure
(merge-refpoints x-placer y-placer) -> refpoint-placer?
  x-placer : refpoint-placer?
  y-placer : refpoint-placer?
syntax
(pslide ppict-do-fragment ...)
parameter
(pslide-base-pict) -> (-> pict)
(pslide-base-pict make-base-pict) -> void?
  make-base-pict : (-> pict)
parameter
(pslide-default-placer) -> placer?
(pslide-default-placer placer) -> void?
  placer : placer?
procedure
(with-rewriters proc) -> any
  proc : (-> any)
parameter
(current-atomic-rewriters)
 -> (let ([atomic-rewriter/c
           (or/c string? pict?
                 (-> (or/c string? pict?)))])
      (plistof symbol? atomic-rewriter/c))
(current-atomic-rewriters rewriters) -> void?
  rewriters : (let ([atomic-rewriter/c
                     (or/c string? pict?
                           (-> (or/c string? pict?)))])
                (plistof symbol? atomic-rewriter/c))
parameter
(current-compound-rewriters)
 -> (plistof symbol? compound-rewriter/c)
(current-compound-rewriters rewriters) -> void?
  rewriters : (plistof symbol? compound-rewriter/c)
parameter
(current-unquote-rewriters)
 -> (plistof (-> lw? any/c) (-> lw? lw?))
(current-unquote-rewriters rewriters) -> void?
  rewriters : (plistof (-> lw? any/c) (-> lw? lw?))
procedure
(add-atomic-rewriters! rewriters) -> void?
  rewriters : (let ([atomic-rewriter/c
                     (or/c string? pict?
                            (-> (or/c string? pict?)))])
                (plistof symbol? atomic-rewriter/c))
procedure
(add-compound-rewriters! rewriters) -> void?
  rewriters : (plistof symbol? compound-rewriter/c)
procedure
(add-unquote-rewriters! rewriters) -> void?
  rewriters : (plistof (-> lw? any/c) (-> lw? lw?))
procedure
(plistof key/c value/c) -> contract?
  key/c : contract?
  value/c : contract?
value
compound-rewriter/c : contract?
procedure
(binary-rw  operator                                  
           [#:parenthesize-arg parenthesize-arg       
            #:parenthesize-left parenthesize-left     
            #:parenthesize-right parenthesize-right]) 
 -> compound-rewriter/c
  operator : (or/c string? pict? (-> (or/c string? pict?)))
  parenthesize-arg : (or/c #t #f (listof symbol?) (-> lw? any/c))
                   = #f
  parenthesize-left : (or/c #t #f (listof symbol?) (-> lw? any/c))
                    = parenthesize-arg
  parenthesize-right : (or/c #t #f (listof symbol?) (-> lw? any/c))
                     = parenthesize-arg
procedure
(prefix-rw  prefix                                
           [#:parenthesize-arg parenthesize-arg]) 
 -> compound-rewriter/c
  prefix : (or/c string? pict? (-> (or/c string? pict?)))
  parenthesize-arg : (or/c #f #t (listof symbol?) (-> lw? any/c))
                   = #f
procedure
(postfix-rw  postfix                               
            [#:parenthesize-arg parenthesize-arg]) 
 -> compound-rewriter/c
  postfix : (or/c string? pict? (-> (or/c string? pict?)))
  parenthesize-arg : (or/c #f #t (listof symbol?) (-> lw? any/c))
                   = #f
procedure
(function-rw function) -> compound-rewriter/c
  function : (or/c string? pict? (-> (or/c string? pict?)))
procedure
(only-first-rw) -> compound-rewriter/c
procedure
(splice-rw) -> compound-rewriter/c
procedure
(constant-rw constant) -> compound-rewriter/c
  constant : (or/c string? pict? (-> (or/c string? pict?)))
procedure
(bracket-rw brackets [#:comma? comma?]) -> compound-rewriter/c
  brackets : (or/c 'round 'square 'curly 'angle
                   (list (or/c string? pict?)
                         (or/c string? pict?)))
  comma? : any/c = #t
procedure
(set-cons-rw) -> compound-rewriter/c
class
snip-canvas% : class?
  superclass: editor-canvas%
constructor
(new snip-canvas%                                            
                   [parent parent]                           
                   [make-snip make-snip]                     
                  [[style style]                             
                   [label label]                             
                   [horizontal-inset horizontal-inset]       
                   [vertical-inset vertical-inset]           
                   [enabled enabled]                         
                   [vert-margin vert-margin]                 
                   [horiz-margin horiz-margin]               
                   [min-width min-width]                     
                   [min-height min-height]                   
                   [stretchable-width stretchable-width]     
                   [stretchable-height stretchable-height]]) 
 -> (is-a?/c snip-canvas%)
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%)
                 (is-a?/c panel%) (is-a?/c pane%))
  make-snip : ((integer-in 0 10000) (integer-in 0 10000) . -> . snip%)
  style : (listof (one-of/c 'no-border 'control-border 'combo
                            'resize-corner 'no-focus 'deleted
                            'transparent))
        = null
  label : (or/c label-string? false/c) = #f
  horizontal-inset : (integer-in 0 1000) = 5
  vertical-inset : (integer-in 0 1000) = 5
  enabled : any/c = #t
  vert-margin : (integer-in 0 1000) = 0
  horiz-margin : (integer-in 0 1000) = 0
  min-width : (integer-in 0 10000) = 0
  min-height : (integer-in 0 10000) = 0
  stretchable-width : any/c = #t
  stretchable-height : any/c = #t
method
(send a-snip-canvas get-snip) -> (or/c (is-a?/c snip%) #f)
method
(send a-snip-canvas on-size width height) -> void?
  width : (integer-in 0 10000)
  height : (integer-in 0 10000)
procedure
(codeblock->pict block) -> pict?
  block : block?
