22252
#hash(((def ((lib "unstable/bytes.rkt") read/bytes)) . ((2604 . 3))) ((def ((lib "unstable/gui/pict.rkt") tag-pict)) . ((39778 . 4))) ((form ((lib "unstable/future.rkt") for/async)) . ((15511 . 2))) ((def ((lib "unstable/flonum.rkt") +min.0)) . ((15461 . 2))) ((def ((lib "unstable/find.rkt") find)) . ((13739 . 11))) ((def ((lib "unstable/flonum.rkt") flonum->bit-field)) . ((14707 . 3))) ((form ((lib "unstable/class-iop.rkt") send*/i)) . ((17023 . 2))) ((form ((lib "unstable/debug.rkt") begin/debug)) . ((10972 . 2))) ((form ((lib "unstable/gui/slideshow.rkt") caps)) . ((42051 . 2))) ((def ((lib "unstable/gui/ppict.rkt") at-find-pict)) . ((45673 . 13))) ((def ((lib "unstable/gui/ppict.rkt") ppict-go)) . ((43858 . 4))) ((form ((lib "unstable/automata/re.rkt") complement)) . ((2273 . 2))) ((def ((lib "unstable/flonum.rkt") ordinal->flonum)) . ((15016 . 3))) ((def ((lib "unstable/automata/machine.rkt") machine)) . ((0 . 3))) ((form ((lib "unstable/gui/slideshow.rkt") with-size)) . ((41789 . 2))) ((form ((lib "unstable/automata/re.rkt") define-re-transformer)) . ((2380 . 2))) ((def ((lib "unstable/custom-write.rkt") make-constructor-style-printer)) . ((24399 . 6))) ((def ((lib "unstable/contract.rkt") treeof)) . ((3388 . 3))) ((form ((lib "unstable/automata/re.rkt") seq)) . ((2291 . 2))) ((def ((lib "unstable/gui/pict.rkt") yellow)) . ((30049 . 3))) ((def ((lib "unstable/flonum.rkt") flonum->ordinal)) . ((14897 . 4))) ((form ((lib "unstable/gui/pict.rkt") pict-if)) . ((31494 . 5))) ((def ((lib "unstable/gui/slideshow.rkt") blank-line)) . ((43321 . 2))) ((def ((lib "unstable/cat.rkt") cat)) . ((3469 . 21))) ((def ((lib "unstable/gui/notify.rkt") notify-box%)) . ((27562 . 3))) ((form ((lib "unstable/automata/re-ext.rkt") opt)) . ((2421 . 2))) ((def ((lib "unstable/flonum.rkt") flstep)) . ((15224 . 4))) ((form ((lib "unstable/parameter-group.rkt") parameterize*/group)) . ((22550 . 5))) ((form ((lib "unstable/gui/slideshow.rkt") italic)) . ((41977 . 2))) ((def ((lib "unstable/sequence.rkt") in-slice)) . ((23865 . 4))) ((form ((lib "unstable/gui/pict.rkt") pict-match)) . ((31890 . 5))) ((def ((lib "unstable/cat.rkt") catnp)) . ((7860 . 18))) ((def ((lib "unstable/gui/pict.rkt") orange)) . ((29994 . 3))) ((def ((lib "unstable/gui/pict.rkt") find-tag*)) . ((39951 . 4))) ((def ((lib "unstable/gui/pict.rkt") color)) . ((29873 . 4))) ((form ((lib "unstable/debug.rkt") with-syntax/debug)) . ((11891 . 2))) ((def ((lib "unstable/markparam.rkt") struct:mark-parameter)) . ((20641 . 2))) ((form ((lib "unstable/temp-c/dsl.rkt") with-monitor)) . ((27483 . 2))) ((def ((lib "unstable/gui/ppict.rkt") ppict-add)) . ((43933 . 4))) ((def ((lib "unstable/gui/pict.rkt") hide)) . ((31158 . 4))) ((def ((lib "unstable/gui/pict.rkt") red)) . ((29942 . 3))) ((form ((lib "unstable/define.rkt") in-phase1/pass2)) . ((12143 . 2))) ((meth (((lib "unstable/gui/notify.rkt") notify-box%) listen)) . ((27818 . 3))) ((meth (((lib "unstable/gui/notify.rkt") notify-box%) remove-all-listeners)) . ((28009 . 2))) ((def ((lib "unstable/automata/machine.rkt") machine-accepts?)) . ((159 . 4))) ((def ((lib "unstable/gui/pict.rkt") pin-arrows-label-line)) . ((37112 . 36))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:call-label)) . ((26250 . 16))) ((form ((lib "unstable/gui/slideshow.rkt") with-style)) . ((41924 . 2))) ((def ((lib "unstable/list.rkt") split-common-prefix)) . ((18085 . 5))) ((def ((lib "unstable/gui/slideshow.rkt") tabular)) . ((42071 . 17))) ((def ((lib "unstable/cat.rkt") catp)) . ((4447 . 20))) ((def ((lib "unstable/string.rkt") regexp-filter)) . ((23975 . 5))) ((def ((lib "unstable/gui/notify.rkt") choice/notify-box)) . ((29033 . 10))) ((form ((lib "unstable/debug.rkt") define/public/debug)) . ((11166 . 3))) ((def ((lib "unstable/gui/pict.rkt") rounded-rectangle/border)) . ((33369 . 16))) ((form ((lib "unstable/recontract.rkt") recontract-out)) . ((23380 . 2))) ((form ((lib "unstable/automata/re-ext.rkt") rep)) . ((2464 . 2))) ((form ((lib "unstable/automata/re.rkt") union)) . ((2302 . 2))) ((def ((lib "unstable/automata/machine.rkt") machine-intersect)) . ((678 . 4))) ((form ((lib "unstable/open-place.rkt") open-place)) . ((22098 . 2))) ((meth (((lib "unstable/gui/snip.rkt") snip-canvas%) get-snip)) . ((48602 . 2))) ((form ((lib "unstable/gui/pict.rkt") pict-case)) . ((31752 . 5))) ((def ((lib "unstable/find.rkt") find-first)) . ((14209 . 11))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor)) . ((26020 . 4))) ((form ((lib "unstable/automata/re.rkt") epsilon)) . ((2327 . 2))) ((def ((lib "unstable/syntax.rkt") syntax-source-file-name)) . ((25936 . 3))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:return-rets)) . ((26728 . 18))) ((form ((lib "unstable/gui/slideshow.rkt") stage)) . ((43129 . 2))) ((def ((lib "unstable/list.rkt") extend)) . ((18309 . 5))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:proj)) . ((26100 . 6))) ((form ((lib "unstable/gui/ppict.rkt") ppict-do)) . ((43355 . 2))) ((def ((lib "unstable/pretty.rkt") break-lines)) . ((23241 . 4))) ((form ((lib "unstable/debug.rkt") define/augment/debug)) . ((11344 . 3))) ((form ((lib "unstable/define.rkt") at-end)) . ((12099 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") struct:monitor:proj)) . ((26100 . 6))) ((def ((lib "unstable/gui/pict.rkt") brown)) . ((30320 . 3))) ((def ((lib "unstable/sequence.rkt") in-syntax)) . ((23551 . 3))) ((form ((lib "unstable/gui/ppict.rkt") ppict-do*)) . ((43408 . 13))) ((form ((lib "unstable/match.rkt") as)) . ((21318 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:proj-proj-label)) . ((26100 . 6))) ((def ((lib "unstable/list.rkt") check-duplicate)) . ((18400 . 8))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:return-kws)) . ((26728 . 18))) ((form ((lib "unstable/match.rkt") object)) . ((21870 . 10))) ((def ((lib "unstable/sequence.rkt") sequence-lift)) . ((23773 . 4))) ((def ((lib "unstable/gui/pict.rkt") pin-label-line)) . ((34026 . 31))) ((form ((lib "unstable/gui/slideshow.rkt") stage-name)) . ((43142 . 2))) ((def ((lib "unstable/list.rkt") map2)) . ((18912 . 4))) ((def ((lib "unstable/automata/machine.rkt") machine-star)) . ((529 . 3))) ((form ((lib "unstable/automata/re.rkt") nullset)) . ((2342 . 2))) ((def ((lib "unstable/automata/machine.rkt") machine-complement)) . ((462 . 3))) ((def ((lib "unstable/hash.rkt") hash-union)) . ((15806 . 12))) ((def ((lib "unstable/temp-c/monitor.rkt") struct:monitor:return)) . ((26728 . 18))) ((def ((lib "unstable/gui/pict.rkt") white)) . ((30427 . 3))) ((def ((lib "unstable/gui/prefs.rkt") pref:get/set)) . ((29774 . 3))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:call-f)) . ((26250 . 16))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:proj?)) . ((26100 . 6))) ((def ((lib "unstable/syntax.rkt") format-unique-id)) . ((25135 . 13))) ((def ((lib "unstable/cat.rkt") catn)) . ((6323 . 29))) ((def ((lib "unstable/error.rkt") compose-error-message)) . ((12966 . 13))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:call-app-label)) . ((26250 . 16))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:proj-v)) . ((26100 . 6))) ((def ((lib "unstable/automata/machine.rkt") struct:machine-accepting)) . ((70 . 3))) ((def ((lib "unstable/list.rkt") group-by)) . ((19116 . 5))) ((form ((lib "unstable/gui/slideshow.rkt") column)) . ((42951 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:return-proj-label)) . ((26728 . 18))) ((form ((lib "unstable/gui/slideshow.rkt") superscript)) . ((42024 . 2))) ((def ((lib "unstable/automata/machine.rkt") machine-epsilon)) . ((393 . 2))) ((def ((lib "unstable/gui/ppict.rkt") grid)) . ((44771 . 17))) ((def ((lib "unstable/struct.rkt") struct->list)) . ((24240 . 4))) ((def ((lib "unstable/gui/pict.rkt") show)) . ((31067 . 4))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:call-args)) . ((26250 . 16))) ((form ((lib "unstable/gui/slideshow.rkt") small)) . ((41872 . 2))) ((def ((lib "unstable/cat.rkt") catw)) . ((5385 . 20))) ((def ((lib "unstable/temp-c/monitor.rkt") struct:monitor)) . ((26020 . 4))) ((form ((lib "unstable/class-iop.rkt") define-interface-expander)) . ((17495 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:return)) . ((26728 . 18))) ((form ((lib "unstable/debug.rkt") letrec-values/debug)) . ((11816 . 2))) ((def ((lib "unstable/list.rkt") map/values)) . ((18735 . 5))) ((def ((lib "unstable/markparam.rkt") mark-parameter?)) . ((20641 . 2))) ((form ((lib "unstable/lazy-require.rkt") begin-on-demand)) . ((17701 . 3))) ((form ((lib "unstable/parameter-group.rkt") define-parameter-group)) . ((22196 . 7))) ((def ((lib "unstable/parameter-group.rkt") parameter-group?)) . ((22134 . 3))) ((form ((lib "unstable/automata/nfa.rkt") nfa)) . ((1193 . 11))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:call-kw-args)) . ((26250 . 16))) ((def ((lib "unstable/gui/ppict.rkt") ppict?)) . ((43806 . 3))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:call)) . ((26250 . 16))) ((def ((lib "unstable/gui/pict.rkt") shadow)) . ((39008 . 13))) ((form ((lib "unstable/syntax.rkt") phase-of-enclosing-module)) . ((24889 . 2))) ((form ((lib "unstable/gui/slideshow.rkt") reveal)) . ((43205 . 2))) ((def ((lib "unstable/hash.rkt") hash-union!)) . ((16321 . 11))) ((def ((lib "unstable/automata/machine.rkt") machine?)) . ((0 . 3))) ((form ((lib "unstable/debug.rkt") let/debug)) . ((11433 . 3))) ((form ((lib "unstable/gui/slideshow.rkt") revealing-slide)) . ((43240 . 2))) ((def ((lib "unstable/list.rkt") list-prefix?)) . ((17768 . 4))) ((def ((lib "unstable/contract.rkt") option/c)) . ((3206 . 3))) ((def ((lib "unstable/gui/pict.rkt") black)) . ((30266 . 3))) ((def ((lib "unstable/gui/ppict.rkt") coord)) . ((44288 . 13))) ((form ((lib "unstable/automata/dfa.rkt") dfa)) . ((959 . 11))) ((form ((lib "unstable/markparam.rkt") mark-parameterize)) . ((21220 . 2))) ((form ((lib "unstable/match.rkt") define/match)) . ((21367 . 17))) ((def ((lib "unstable/gui/pict.rkt") color/c)) . ((30709 . 2))) ((form ((lib "unstable/gui/slideshow.rkt") subscript)) . ((41999 . 2))) ((def ((lib "unstable/logging.rkt") stop-recording)) . ((20407 . 6))) ((def ((lib "unstable/gui/ppict.rkt") ppict-add*)) . ((44044 . 4))) ((def ((lib "unstable/gui/pict.rkt") ellipse/border)) . ((32098 . 11))) ((def ((lib "unstable/gui/slideshow.rkt") columns)) . ((42890 . 3))) ((form ((lib "unstable/debug.rkt") define/override/debug)) . ((11253 . 3))) ((def ((lib "unstable/markparam.rkt") mark-parameter-all)) . ((20838 . 5))) ((def ((lib "unstable/automata/machine.rkt") machine-null)) . ((361 . 2))) ((def ((lib "unstable/gui/pict.rkt") find-tag)) . ((39854 . 4))) ((def ((lib "unstable/syntax.rkt") syntax-source-directory)) . ((25852 . 3))) ((def ((lib "unstable/flonum.rkt") -min.0)) . ((15436 . 2))) ((form ((lib "unstable/gui/slideshow.rkt") bold)) . ((41957 . 2))) ((def ((lib "unstable/gui/ppict.rkt") placer?)) . ((44173 . 3))) ((def ((lib "unstable/gui/ppict.rkt") merge-refpoints)) . ((46244 . 4))) ((def ((lib "unstable/sandbox.rkt") make-log-based-eval)) . ((23413 . 4))) ((def ((lib "unstable/contract.rkt") path-piece?)) . ((2858 . 2))) ((def ((lib "unstable/gui/snip.rkt") snip-canvas%)) . ((46660 . 3))) ((def ((lib "unstable/gui/pict.rkt") arch)) . ((41554 . 9))) ((def ((lib "unstable/pretty.rkt") pretty-format/display)) . ((22887 . 5))) ((form ((lib "unstable/debug.rkt") debugf)) . ((10850 . 5))) ((def ((lib "unstable/gui/pict.rkt") rectangle/border)) . ((32915 . 11))) ((form ((lib "unstable/gui/slideshow.rkt") with-font)) . ((41893 . 2))) ((form ((lib "unstable/automata/re-ext.rkt") intersection)) . ((2530 . 2))) ((form ((lib "unstable/gui/slideshow.rkt") staged)) . ((43089 . 2))) ((def ((lib "unstable/syntax.rkt") make-variable-like-transformer)) . ((24924 . 6))) ((def ((lib "unstable/flonum.rkt") +max.0)) . ((15486 . 2))) ((form ((lib "unstable/gui/slideshow.rkt") big)) . ((41853 . 2))) ((def ((lib "unstable/gui/pict.rkt") purple)) . ((30211 . 3))) ((def ((lib "unstable/flonum.rkt") bit-field->flonum)) . ((14802 . 3))) ((def ((lib "unstable/contract.rkt") non-empty-string?)) . ((2725 . 3))) ((def ((lib "unstable/list.rkt") filter-multiple)) . ((18217 . 4))) ((form ((lib "unstable/class-iop.rkt") define-interface/dynamic)) . ((16886 . 2))) ((form ((lib "unstable/future.rkt") for*/async)) . ((15561 . 2))) ((def ((lib "unstable/gui/ppict.rkt") refpoint-placer?)) . ((44226 . 3))) ((def ((lib "unstable/contract.rkt") if/c)) . ((2890 . 5))) ((def ((lib "unstable/flonum.rkt") flonums-between)) . ((15134 . 4))) ((def ((lib "unstable/gui/pict.rkt") fill)) . ((30742 . 5))) ((def ((lib "unstable/logging.rkt") with-logging-to-port)) . ((19598 . 5))) ((def ((lib "unstable/flonum.rkt") -max.0)) . ((15411 . 2))) ((def ((lib "unstable/gui/pslide.rkt") pslide-default-placer)) . ((46547 . 4))) ((def ((lib "unstable/syntax.rkt") syntax-map)) . ((25750 . 4))) ((def ((lib "unstable/contract.rkt") sequence/c)) . ((3312 . 3))) ((def ((lib "unstable/flonum.rkt") flnext)) . ((15305 . 3))) ((form ((lib "unstable/temp-c/dsl.rkt") ret)) . ((27459 . 2))) ((def ((lib "unstable/markparam.rkt") mark-parameters-all)) . ((20999 . 6))) ((def ((lib "unstable/gui/pict.rkt") scale-to)) . ((30875 . 6))) ((meth (((lib "unstable/gui/snip.rkt") snip-canvas%) on-size)) . ((48675 . 4))) ((def ((lib "unstable/gui/slideshow.rkt") mini-slide)) . ((42826 . 3))) ((meth (((lib "unstable/gui/notify.rkt") notify-box%) set)) . ((27755 . 3))) ((form ((lib "unstable/gui/pslide.rkt") pslide)) . ((46382 . 2))) ((def ((lib "unstable/gui/notify.rkt") notify-box/pref)) . ((28070 . 5))) ((def ((lib "unstable/flonum.rkt") flprev)) . ((15358 . 3))) ((form ((lib "unstable/automata/re.rkt") star)) . ((2315 . 2))) ((form ((lib "unstable/automata/re-ext.rkt") plus)) . ((2442 . 2))) ((form ((lib "unstable/debug.rkt") parameterize/debug)) . ((12026 . 2))) ((def ((lib "unstable/automata/machine.rkt") machine-seq)) . ((770 . 4))) ((form ((lib "unstable/lazy-require.rkt") lazy-require)) . ((17552 . 7))) ((form ((lib "unstable/struct.rkt") make)) . ((24204 . 2))) ((def ((lib "unstable/automata/machine.rkt") machine-sigma*)) . ((428 . 2))) ((def ((lib "unstable/contract.rkt") port-number?)) . ((2788 . 2))) ((def ((lib "unstable/list.rkt") drop-common-prefix)) . ((17962 . 5))) ((meth (((lib "unstable/gui/notify.rkt") notify-box%) remove-listener)) . ((27909 . 3))) ((def ((lib "unstable/gui/pict.rkt") blur-bitmap!)) . ((39561 . 5))) ((def ((lib "unstable/debug.rkt") dprintf)) . ((10766 . 4))) ((def ((lib "unstable/gui/notify.rkt") menu-option/notify-box)) . ((28380 . 8))) ((def ((lib "unstable/pretty.rkt") pretty-format/write)) . ((22711 . 5))) ((def ((lib "unstable/gui/pict.rkt") dark)) . ((30650 . 3))) ((def ((lib "unstable/sequence.rkt") in-pairs)) . ((23613 . 3))) ((def ((lib "unstable/pretty.rkt") pretty-format/print)) . ((23065 . 5))) ((form ((lib "unstable/debug.rkt") define/private/debug)) . ((11077 . 3))) ((form ((lib "unstable/automata/re-ext.rkt") difference)) . ((2490 . 2))) ((form ((lib "unstable/parameter-group.rkt") parameterize/group)) . ((22390 . 5))) ((def ((lib "unstable/gui/pslide.rkt") pslide-base-pict)) . ((46422 . 4))) ((def ((lib "unstable/function.rkt") disjoin)) . ((15709 . 4))) ((form ((lib "unstable/define.rkt") in-phase1)) . ((12121 . 2))) ((form ((lib "unstable/gui/pict.rkt") with-pict-combine)) . ((32048 . 2))) ((def ((lib "unstable/bytes.rkt") write/bytes)) . ((2664 . 3))) ((form ((lib "unstable/automata/re.rkt") dseq)) . ((2357 . 2))) ((def ((lib "unstable/list.rkt") take-common-prefix)) . ((17845 . 5))) ((def ((lib "unstable/automata/machine.rkt") struct:machine)) . ((0 . 3))) ((def ((lib "unstable/gui/pict.rkt") shadow-frame)) . ((40102 . 27))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor/c)) . ((27279 . 5))) ((def ((lib "unstable/contract.rkt") failure-result/c)) . ((3064 . 2))) ((def ((lib "unstable/custom-write.rkt") prop:auto-custom-write)) . ((24679 . 2))) ((def ((lib "unstable/gui/pict.rkt") shade)) . ((31346 . 5))) ((def ((lib "unstable/automata/machine.rkt") machine-accepts?/prefix-closed)) . ((253 . 4))) ((def ((lib "unstable/gui/notify.rkt") menu-group/notify-box)) . ((29455 . 8))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:call-proj-label)) . ((26250 . 16))) ((form ((lib "unstable/class-iop.rkt") send/apply/i)) . ((17098 . 2))) ((form ((lib "unstable/automata/nfa-ep.rkt") epsilon)) . ((1464 . 2))) ((def ((lib "unstable/gui/pict.rkt") blur)) . ((38822 . 5))) ((form ((lib "unstable/temp-c/dsl.rkt") label)) . ((27528 . 2))) ((form ((lib "unstable/class-iop.rkt") define/i)) . ((17186 . 2))) ((def ((lib "unstable/logging.rkt") start-recording)) . ((20271 . 3))) ((def ((lib "unstable/list.rkt") remf)) . ((19035 . 4))) ((def ((lib "unstable/sequence.rkt") in-sequence-forever)) . ((23676 . 4))) ((def ((lib "unstable/gui/pict.rkt") blue)) . ((30158 . 3))) ((def ((lib "unstable/gui/pict.rkt") circle/border)) . ((32542 . 9))) ((def ((lib "unstable/gui/scribble.rkt") codeblock->pict)) . ((48814 . 3))) ((form ((lib "unstable/class-iop.rkt") init-field/i)) . ((17291 . 2))) ((def ((lib "unstable/function.rkt") conjoin)) . ((15612 . 4))) ((def ((lib "unstable/automata/machine.rkt") machine-seq*)) . ((856 . 4))) ((form ((lib "unstable/class-iop.rkt") init-private/i)) . ((17359 . 5))) ((form ((lib "unstable/debug.rkt") letrec/debug)) . ((11610 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") struct:monitor:call)) . ((26250 . 16))) ((form ((lib "unstable/debug.rkt") let*-values/debug)) . ((11743 . 2))) ((def ((lib "unstable/gui/pict.rkt") magenta)) . ((30534 . 3))) ((def ((lib "unstable/gui/pict.rkt") strike)) . ((31249 . 4))) ((def ((lib "unstable/contract.rkt") tcp-listen-port?)) . ((2821 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:return?)) . ((26728 . 18))) ((form ((lib "unstable/automata/re-ext.rkt") seq/close)) . ((2572 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor-label)) . ((26020 . 4))) ((meth (((lib "unstable/gui/notify.rkt") notify-box%) get)) . ((27711 . 2))) ((def ((lib "unstable/gui/pict.rkt") pin-arrow-label-line)) . ((35419 . 36))) ((def ((lib "unstable/list.rkt") list-update)) . ((19290 . 5))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:return-f)) . ((26728 . 18))) ((def ((lib "unstable/gui/slideshow.rkt") column-size)) . ((42985 . 4))) ((def ((lib "unstable/gui/pict.rkt") tag-path?)) . ((40047 . 3))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:proj-label)) . ((26100 . 6))) ((def ((lib "unstable/contract.rkt") truth/c)) . ((3279 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:call-kws)) . ((26250 . 16))) ((form ((lib "unstable/gui/slideshow.rkt") two-columns)) . ((42795 . 2))) ((form ((lib "unstable/automata/nfa-ep.rkt") nfa/ep)) . ((1479 . 14))) ((def ((lib "unstable/contract.rkt") rename-contract)) . ((3101 . 4))) ((form ((lib "unstable/class-iop.rkt") define-interface)) . ((16812 . 2))) ((def ((lib "unstable/cat.rkt") catne)) . ((8737 . 21))) ((def ((lib "unstable/gui/pict.rkt") cyan)) . ((30481 . 3))) ((def ((lib "unstable/automata/machine.rkt") machine-accepting?)) . ((70 . 3))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:return-kw-args)) . ((26728 . 18))) ((def ((lib "unstable/file.rkt") make-directory*/ignore-exists-exn)) . ((13653 . 3))) ((form ((lib "unstable/gui/pict.rkt") pict-cond)) . ((31624 . 5))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor?)) . ((26020 . 4))) ((form ((lib "unstable/debug.rkt") define/debug)) . ((11004 . 3))) ((def ((lib "unstable/automata/machine.rkt") machine-union)) . ((590 . 4))) ((form ((lib "unstable/gui/ppict.rkt") ppict-do-state)) . ((43784 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:return-app-label)) . ((26728 . 18))) ((def ((lib "unstable/gui/pict.rkt") gray)) . ((30374 . 3))) ((def ((lib "unstable/automata/machine.rkt") machine-accepting-next)) . ((70 . 3))) ((form ((lib "unstable/automata/re.rkt") rec)) . ((2369 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:return-args)) . ((26728 . 18))) ((def ((lib "unstable/automata/machine.rkt") machine-next)) . ((0 . 3))) ((def ((lib "unstable/automata/machine.rkt") machine-accepting)) . ((70 . 3))) ((def ((lib "unstable/markparam.rkt") mark-parameter)) . ((20641 . 2))) ((form ((lib "unstable/gui/slideshow.rkt") slide/staged)) . ((43160 . 2))) ((def ((lib "unstable/gui/notify.rkt") check-box/notify-box)) . ((28681 . 8))) ((def ((lib "unstable/list.rkt") list-set)) . ((19454 . 5))) ((def ((lib "unstable/logging.rkt") with-intercepted-logging)) . ((19794 . 11))) ((form ((lib "unstable/automata/re.rkt") re)) . ((1926 . 15))) ((constructor ((lib "unstable/gui/snip.rkt") snip-canvas%)) . ((46722 . 33))) ((def ((lib "unstable/markparam.rkt") mark-parameter-first)) . ((20675 . 5))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:call?)) . ((26250 . 16))) ((form ((lib "unstable/debug.rkt") let*/debug)) . ((11551 . 2))) ((form ((lib "unstable/gui/slideshow.rkt") with-scale)) . ((41820 . 2))) ((def ((lib "unstable/wrapc.rkt") wrap-expr/c)) . ((9770 . 19))) ((def ((lib "unstable/gui/pict.rkt") light)) . ((30590 . 3))) ((def ((lib "unstable/gui/pict.rkt") green)) . ((30104 . 3))) ((form ((lib "unstable/gui/slideshow.rkt") items-slide)) . ((43276 . 2))) ((def ((lib "unstable/syntax.rkt") explode-module-path-index)) . ((24751 . 4))) ((constructor ((lib "unstable/gui/notify.rkt") notify-box%)) . ((27616 . 3))) ((form ((lib "unstable/debug.rkt") debug)) . ((10663 . 5))) ((form ((lib "unstable/temp-c/dsl.rkt") call)) . ((27434 . 2))) ((form ((lib "unstable/gui/notify.rkt") define-notify)) . ((28294 . 4))) ((form ((lib "unstable/gui/pict.rkt") pict-combine)) . ((32028 . 2))) ((def ((lib "unstable/temp-c/monitor.rkt") monitor:return-label)) . ((26728 . 18))) ((def ((lib "unstable/gui/ppict.rkt") cascade)) . ((45414 . 4))) ((def ((lib "unstable/syntax.rkt") syntax-within?)) . ((25667 . 4))) ((form ((lib "unstable/debug.rkt") with-syntax*/debug)) . ((11958 . 2))) ((form ((lib "unstable/class-iop.rkt") init/i)) . ((17229 . 2))) ((form ((lib "unstable/debug.rkt") let-values/debug)) . ((11671 . 2))) ((form ((lib "unstable/match.rkt") match?)) . ((21282 . 2))) ((form ((lib "unstable/class-iop.rkt") send/i)) . ((16957 . 2))) ((def ((lib "unstable/error.rkt") raise-misc-error)) . ((12171 . 16))) ((def ((lib "unstable/gui/ppict.rkt") tile)) . ((45557 . 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
(option/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
(cat  v                                   
      ...                                 
     [#:width width                       
      #:limit limit                       
      #:limit-marker limit-marker         
      #:pad-to pad-to                     
      #:align align                       
      #:padding padding                   
      #:left-padding left-padding         
      #:right-padding right-padding]) -> string?
  v : any/c
  width : (or/c exact-nonnegative-integer? #f) = #f
  limit : (or/c exact-nonnegative-integer? +inf.0)
        = (or width +inf.0)
  limit-marker : string? = "..."
  pad-to : exact-nonnegative-integer? = (or width 0)
  align : (or/c 'left 'center 'right) = 'left
  padding : non-empty-string? = " "
  left-padding : non-empty-string? = padding
  right-padding : non-empty-string? = padding
procedure
(catp  v                                   
      [#:width width                       
       #:limit limit                       
       #:limit-marker limit-marker         
       #:pad-to pad-to                     
       #:align align                       
       #:padding padding                   
       #:left-padding left-padding         
       #:right-padding right-padding]) -> string?
  v : any/c
  width : (or/c exact-nonnegative-integer? #f) = #f
  limit : (or/c exact-nonnegative-integer? +inf.0)
        = (or width +inf.0)
  limit-marker : string? = "..."
  pad-to : exact-nonnegative-integer? = (or width 0)
  align : (or/c 'left 'center 'right) = 'left
  padding : non-empty-string? = " "
  left-padding : non-empty-string? = padding
  right-padding : non-empty-string? = padding
procedure
(catw  v                                   
      [#:width width                       
       #:limit limit                       
       #:limit-marker limit-marker         
       #:pad-to pad-to                     
       #:align align                       
       #:padding padding                   
       #:left-padding left-padding         
       #:right-padding right-padding]) -> string?
  v : any/c
  width : (or/c exact-nonnegative-integer? #f) = #f
  limit : (or/c exact-nonnegative-integer? +inf.0)
        = (or width +inf.0)
  limit-marker : string? = "..."
  pad-to : exact-nonnegative-integer? = (or width 0)
  align : (or/c 'left 'center 'right) = 'left
  padding : non-empty-string? = " "
  left-padding : non-empty-string? = padding
  right-padding : non-empty-string? = padding
procedure
(catn  x                                             
      [#:sign sign                                   
       #:base base                                   
       #:precision precision                         
       #:pos/exp-range pos/exp-range                 
       #:exp-precision exp-precision                 
       #:exp-format-exponent exp-format-exponent     
       #:pad-digits-to pad-digits-to                 
       #:digits-padding digits-padding])         -> string?
  x : rational?
  sign : (or/c #f '+ '++ 'parens
               (let ([ind (or/c string? (list/c string? string?))])
                 (list/c ind ind ind)))
       = #f
  base : (or/c (integer-in 2 36) (list/c 'up (integer-in 2 36)))
       = 10
  precision : (or/c exact-nonnegative-integer?              = 3
                    (list/c '= exact-nonnegative-integer?))
  pos/exp-range : (list/c (or/c exact-integer? +inf.0)
                          (or/c exact-integer? -inf.0))
                = (list -inf.0 +inf.0)
  exp-precision : (or/c exact-nonnegative-integer?
                        (list/c '= exact-nonnegative-integer?))
                = 5
  exp-format-exponent : (or/c #f string? (-> exact-integer? string?))
                      = #f
  pad-digits-to : exact-positive-integer? = 1
  digits-padding : non-empty-string? = " "
procedure
(catnp  x                                     
       [#:sign sign                           
        #:base base                           
        #:precision precision                 
        #:pad-digits-to pad-digits-to         
        #:digits-padding digits-padding]) -> string?
  x : rational?
  sign : (or/c #f '+ '++ 'parens
               (let ([ind (or/c string? (list/c string? string?))])
                 (list/c ind ind ind)))
       = #f
  base : (or/c (integer-in 2 36) (list/c 'up (integer-in 2 36)))
       = 10
  precision : (or/c exact-nonnegative-integer?              = 3
                    (list/c '= exact-nonnegative-integer?))
  pad-digits-to : exact-positive-integer? = 1
  digits-padding : non-empty-string? = " "
procedure
(catne  x                                     
       [#:sign sign                           
        #:base base                           
        #:precision precision                 
        #:format-exponent format-exponent     
        #:pad-digits-to pad-digits-to         
        #:digits-padding digits-padding]) -> string?
  x : rational?
  sign : (or/c #f '+ '++ 'parens
               (let ([ind (or/c string? (list/c string? string?))])
                 (list/c ind ind ind)))
       = #f
  base : (or/c (integer-in 2 36) (list/c 'up (integer-in 2 36)))
       = 10
  precision : (or/c exact-nonnegative-integer?              = 5
                    (list/c '= exact-nonnegative-integer?))
  format-exponent : (or/c #f string? (-> exact-integer? string?))
                  = #f
  pad-digits-to : exact-positive-integer? = 1
  digits-padding : non-empty-string? = " "
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
(lazy-require [mod (imported-fun-id ...)] ...)
 
mod = module-path
    | ,module-path-expr
 
  module-path-expr : module-path?
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)
                     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))
  listener : listener?
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
(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
(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)
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?
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?
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?
