10497
#hash(((def ((lib "mzlib/pregexp.rkt") pregexp-replace)) . ((20178 . 7))) ((form ((lib "mzlib/struct.rkt") copy-struct)) . ((24758 . 3))) ((def ((lib "mzlib/compat.rkt") flush-output-port)) . ((5185 . 3))) ((def ((lib "mzlib/list.rkt") merge-sorted-lists)) . ((13587 . 5))) ((form ((lib "mzlib/plt-match.rkt") define-match-expander)) . ((18094 . 4))) ((form ((lib "mzlib/etc.rkt") hash-table)) . ((9922 . 2))) ((def ((lib "mzlib/os.rkt") truncate-file)) . ((14750 . 4))) ((def ((lib "mzlib/cml.rkt") current-time)) . ((4639 . 2))) ((def ((lib "mzlib/file.rkt") build-absolute-path)) . ((10910 . 8))) ((form ((lib "mzlib/match.rkt") match-lambda)) . ((14083 . 2))) ((def ((lib "mzlib/pconvert-prop.rkt") prop:print-converter)) . ((17653 . 2))) ((def ((lib "mzlib/pconvert.rkt") constructor-style-printing)) . ((15640 . 4))) ((def ((lib "mzlib/pconvert.rkt") show-sharing)) . ((17421 . 4))) ((form ((lib "mzlib/class100.rkt") class100*)) . ((1742 . 36))) ((def ((lib "mzlib/thread.rkt") consumer-thread)) . ((25163 . 4))) ((def ((lib "mzlib/transcr.rkt") transcript-off)) . ((26260 . 2))) ((form ((lib "mzlib/match.rkt") define-match-expander)) . ((14344 . 4))) ((def ((lib "mzlib/string.rkt") expr->string)) . ((24205 . 3))) ((def ((lib "mzlib/contract.rkt") build-flat-contract)) . ((6542 . 4))) ((form ((lib "mzlib/contract.rkt") opt->)) . ((6918 . 3))) ((form ((lib "mzlib/contract.rkt") ->r)) . ((7424 . 7))) ((def ((lib "mzlib/pconvert.rkt") current-build-share-name-hook)) . ((16061 . 5))) ((form ((lib "mzlib/cmdline.rkt") command-line)) . ((3561 . 21))) ((form ((lib "mzlib/contract.rkt") ->d*)) . ((7285 . 3))) ((def ((lib "mzlib/cml.rkt") time-evt)) . ((4675 . 3))) ((def ((lib "mzlib/pregexp.rkt") pregexp-match-positions)) . ((19015 . 15))) ((form ((lib "mzlib/serialize.rkt") define-serializable-struct)) . ((22677 . 2))) ((def ((lib "mzlib/port.rkt") strip-shell-command-start)) . ((18251 . 3))) ((form ((lib "mzlib/etc.rkt") opt-lambda)) . ((9584 . 2))) ((form ((lib "mzlib/class100.rkt") class100*-asi)) . ((3449 . 2))) ((form ((lib "mzlib/etc.rkt") evcase)) . ((8823 . 3))) ((def ((lib "mzlib/pconvert.rkt") current-read-eval-convert-print-prompt)) . ((16634 . 4))) ((form ((lib "mzlib/include.rkt") include-at/relative-to/reader)) . ((11571 . 2))) ((def ((lib "mzlib/pconvert.rkt") install-converting-printer)) . ((16926 . 2))) ((form ((lib "mzlib/contract.rkt") define/contract)) . ((6218 . 2))) ((def ((lib "mzlib/compat.rkt") >=?)) . ((4946 . 3))) ((def ((lib "mzlib/cml.rkt") thread-done-evt)) . ((4577 . 3))) ((def ((lib "mzlib/etc.rkt") identity)) . ((8963 . 3))) ((def ((lib "mzlib/compat.rkt") putprop)) . ((5666 . 5))) ((def ((lib "mzlib/pconvert-prop.rkt") print-converter-proc)) . ((17751 . 4))) ((form ((lib "mzlib/match.rkt") match-let*)) . ((14205 . 2))) ((def ((lib "mzlib/pconvert.rkt") use-named/undefined-handler)) . ((15125 . 4))) ((def ((lib "mzlib/compat.rkt") real-time)) . ((5280 . 2))) ((def ((lib "mzlib/list.rkt") first)) . ((12994 . 3))) ((form ((lib "mzlib/contract.rkt") object-contract)) . ((8617 . 2))) ((form ((submod (lib "racket/unit.rkt") compat) struct~s/ctc)) . ((26677 . 2))) ((def ((lib "mzlib/sendevent.rkt") send-event)) . ((21967 . 14))) ((def ((lib "mzlib/cml.rkt") channel-recv-evt)) . ((4432 . 3))) ((def ((lib "mzlib/pconvert.rkt") add-make-prefix-to-constructor)) . ((15447 . 4))) ((def ((lib "mzlib/string.rkt") string-lowercase!)) . ((23775 . 3))) ((form ((lib "mzlib/class100.rkt") class100-asi)) . ((3390 . 2))) ((form ((lib "mzlib/etc.rkt") begin-with-definitions)) . ((8723 . 2))) ((def ((lib "mzlib/compat.rkt") atom?)) . ((5322 . 3))) ((def ((lib "mzlib/list.rkt") last-pair)) . ((13535 . 3))) ((form ((lib "mzlib/contract.rkt") ->pp)) . ((7627 . 11))) ((def ((lib "mzlib/awk.rkt") match:end)) . ((1379 . 4))) ((form ((lib "mzlib/etc.rkt") nand)) . ((9535 . 2))) ((def ((lib "mzlib/contract.rkt") vectorof)) . ((6345 . 3))) ((def ((lib "mzlib/contract.rkt") vector/c)) . ((6414 . 3))) ((def ((lib "mzlib/awk.rkt") match:start)) . ((1245 . 4))) ((def ((lib "mzlib/compat.rkt") =?)) . ((4727 . 3))) ((def ((lib "mzlib/pconvert.rkt") abbreviate-cons-as-list)) . ((14879 . 4))) ((def ((lib "mzlib/pconvert.rkt") quasi-read-style-printing)) . ((17307 . 4))) ((def ((lib "mzlib/compat.rkt") 1-)) . ((5050 . 3))) ((form ((lib "mzlib/etc.rkt") this-expression-source-directory)) . ((9768 . 3))) ((form ((submod (lib "racket/unit.rkt") compat) struct~s)) . ((26661 . 2))) ((form ((lib "mzlib/match.rkt") match-letrec)) . ((14257 . 2))) ((form ((lib "mzlib/kw.rkt") lambda/kw)) . ((11699 . 2))) ((def ((lib "mzlib/list.rkt") sixth)) . ((13296 . 3))) ((def ((lib "mzlib/match.rkt") match-equality-test)) . ((14501 . 4))) ((def ((lib "mzlib/pconvert-prop.rkt") prop:print-convert-constructor-name)) . ((17867 . 2))) ((def ((lib "mzlib/transcr.rkt") transcript-on)) . ((26192 . 3))) ((def ((lib "mzlib/contract.rkt") box/c)) . ((6279 . 3))) ((def ((lib "mzlib/restart.rkt") restart-mzscheme)) . ((20817 . 9))) ((form ((lib "mzlib/etc.rkt") let+)) . ((9014 . 11))) ((def ((lib "mzlib/list.rkt") seventh)) . ((13359 . 3))) ((def ((lib "mzlib/pconvert.rkt") current-build-share-hook)) . ((15784 . 7))) ((def ((lib "mzlib/sandbox.rkt") make-evaluator)) . ((21172 . 15))) ((def ((lib "mzlib/pconvert.rkt") print-convert-expr)) . ((17094 . 7))) ((form ((lib "mzlib/class100.rkt") class100)) . ((3309 . 4))) ((form ((lib "mzlib/contract.rkt") ->d)) . ((7225 . 2))) ((def ((lib "mzlib/list.rkt") eighth)) . ((13424 . 3))) ((form ((submod (lib "racket/unit.rkt") compat) struct/ctc)) . ((26450 . 7))) ((def ((lib "mzlib/compat.rkt") new-cafe)) . ((5784 . 3))) ((form ((lib "mzlib/etc.rkt") rec)) . ((9666 . 4))) ((form ((lib "mzlib/etc.rkt") nor)) . ((9560 . 2))) ((def ((lib "mzlib/file.rkt") call-with-input-file*)) . ((9989 . 5))) ((def ((lib "mzlib/pconvert.rkt") get-shared)) . ((16775 . 5))) ((form ((lib "mzlib/contract.rkt") opt->*)) . ((7067 . 3))) ((form ((lib "mzlib/contract.rkt") ->*)) . ((6756 . 6))) ((form ((lib "mzlib/etc.rkt") recur)) . ((9625 . 2))) ((form ((lib "mzlib/serialize.rkt") define-serializable-struct/versions)) . ((22768 . 13))) ((form ((submod (lib "racket/unit.rkt") compat) struct~r)) . ((26625 . 2))) ((def ((lib "mzlib/pconvert-prop.rkt") print-convert-named-constructor?)) . ((17923 . 3))) ((def ((lib "mzlib/string.rkt") read-from-string-all)) . ((24511 . 6))) ((form ((submod (lib "racket/unit.rkt") compat) struct)) . ((26296 . 7))) ((def ((lib "mzlib/string.rkt") string-uppercase!)) . ((23871 . 3))) ((def ((lib "mzlib/pregexp.rkt") pregexp-split)) . ((19759 . 9))) ((def ((lib "mzlib/os.rkt") gethostname)) . ((14674 . 2))) ((def ((lib "mzlib/pconvert.rkt") booleans-as-true/false)) . ((15005 . 4))) ((form ((lib "mzlib/kw.rkt") define/kw)) . ((11742 . 32))) ((def ((lib "mzlib/pconvert.rkt") whole/fractional-exact-numbers)) . ((17513 . 4))) ((form ((lib "mzlib/match.rkt") match-lambda*)) . ((14118 . 2))) ((def ((lib "mzlib/compat.rkt") gentmp)) . ((5099 . 3))) ((form ((lib "mzlib/contract.rkt") struct/c)) . ((6488 . 2))) ((def ((lib "mzlib/compat.rkt") <=?)) . ((4891 . 3))) ((def ((lib "mzlib/pconvert-prop.rkt") print-converter?)) . ((17694 . 3))) ((def ((lib "mzlib/compat.rkt") <?)) . ((4783 . 3))) ((def ((lib "mzlib/string.rkt") glob->regexp)) . ((23374 . 10))) ((form ((lib "mzlib/etc.rkt") define-syntax-set)) . ((8774 . 2))) ((def ((lib "mzlib/pregexp.rkt") pregexp-replace*)) . ((20497 . 7))) ((form ((lib "mzlib/struct.rkt") make-->vector)) . ((25129 . 2))) ((def ((lib "mzlib/cml.rkt") channel-send-evt)) . ((4495 . 4))) ((form ((lib "mzlib/match.rkt") match-let)) . ((14154 . 2))) ((def ((lib "mzlib/compat.rkt") >?)) . ((4837 . 3))) ((form ((lib "mzlib/contract.rkt") ->)) . ((6667 . 3))) ((def ((lib "mzlib/math.rkt") e)) . ((14656 . 2))) ((form ((lib "mzlib/contract.rkt") ->pp-rest)) . ((7988 . 13))) ((def ((lib "mzlib/list.rkt") rest)) . ((13488 . 3))) ((form ((lib "mzlib/include.rkt") include-at/relative-to)) . ((11511 . 2))) ((def ((lib "mzlib/pconvert-prop.rkt") print-convert-constructor-name)) . ((17996 . 3))) ((def ((lib "mzlib/file.rkt") call-with-output-file*)) . ((10166 . 11))) ((def ((lib "mzlib/thread.rkt") run-server)) . ((25280 . 21))) ((def ((lib "mzlib/kw.rkt") keyword-get)) . ((12843 . 5))) ((def ((lib "mzlib/cml.rkt") channel)) . ((4398 . 2))) ((def ((lib "mzlib/list.rkt") fourth)) . ((13169 . 3))) ((form ((lib "mzlib/match.rkt") match-define)) . ((14311 . 2))) ((form ((lib "mzlib/etc.rkt") begin-lifted)) . ((8689 . 2))) ((def ((lib "mzlib/pconvert.rkt") current-print-convert-hook)) . ((16255 . 8))) ((form ((lib "mzlib/awk.rkt") awk)) . ((0 . 38))) ((def ((lib "mzlib/pconvert.rkt") build-share)) . ((15587 . 3))) ((def ((lib "mzlib/list.rkt") fifth)) . ((13233 . 3))) ((def ((lib "mzlib/compat.rkt") 1+)) . ((5001 . 3))) ((def ((lib "mzlib/awk.rkt") regexp-exec)) . ((1630 . 4))) ((form ((lib "mzlib/include.rkt") include/reader)) . ((11651 . 2))) ((def ((lib "mzlib/etc.rkt") loop-until)) . ((9286 . 6))) ((form ((lib "mzlib/contract.rkt") case->)) . ((8560 . 2))) ((form ((lib "mzlib/struct.rkt") define-struct/properties)) . ((24860 . 7))) ((def ((lib "mzlib/list.rkt") second)) . ((13042 . 3))) ((def ((lib "mzlib/awk.rkt") match:substring)) . ((1511 . 4))) ((form ((lib "mzlib/compat.rkt") define-structure)) . ((5368 . 4))) ((def ((lib "mzlib/pconvert.rkt") print-convert)) . ((16976 . 4))) ((def ((lib "mzlib/file.rkt") build-relative-path)) . ((10614 . 7))) ((def ((lib "mzlib/list.rkt") mergesort)) . ((13739 . 4))) ((form ((lib "mzlib/match.rkt") match)) . ((13973 . 5))) ((def ((lib "mzlib/string.rkt") eval-string)) . ((23967 . 6))) ((def ((lib "mzlib/etc.rkt") namespace-defined?)) . ((9465 . 3))) ((def ((lib "mzlib/os.rkt") getpid)) . ((14711 . 2))) ((def ((lib "mzlib/pconvert.rkt") named/undefined-handler)) . ((15290 . 4))) ((form ((lib "mzlib/include.rkt") include)) . ((11283 . 10))) ((def ((lib "mzlib/string.rkt") read-from-string)) . ((24268 . 6))) ((def ((lib "mzlib/list.rkt") quicksort)) . ((13856 . 4))) ((def ((lib "mzlib/list.rkt") third)) . ((13106 . 3))) ((form ((lib "mzlib/class100.rkt") super-init)) . ((3521 . 2))) ((def ((lib "mzlib/pregexp.rkt") pregexp-match)) . ((18327 . 15))) ((form ((submod (lib "racket/unit.rkt") compat) struct~r/ctc)) . ((26641 . 2))) ((form ((lib "mzlib/etc.rkt") this-expression-file-name)) . ((9852 . 3))) ((def ((lib "mzlib/compat.rkt") getprop)) . ((5535 . 5))) ((def ((lib "mzlib/cml.rkt") spawn)) . ((4336 . 3))) ((def ((lib "mzlib/compile.rkt") compile-file)) . ((5879 . 8))))
syntax
(awk next-record-expr
     (record field-id ...)
     maybe-counter
     ((state-variable init-expr) ...)
     maybe-continue
  clause ...)
 
maybe-counter   = 
                | id
                   
maybe-continue  = 
                | id
                   
clause          = (test body ...+)
                | (test => procedure-expr)
                | (/ regexp-str / (id-or-false ...+) body ...+)
                | (range excl-start-test excl-stop-test body ...+)
                | (:range incl-start-test excl-stop-test body ...+)
                | (range: excl-start-test incl-stop-test body ...+)
                | (:range: incl-start-test incl-stop-test body ...+)
                | (else body ...+)
                | (after body ...+)
                   
test            = integer
                | regexp-string
                | expr
                   
excl-start-test = test
                   
excl-stop-test  = test
                   
incl-start-test = test
                   
incl-stop-test  = test
                   
id-or-false     = id
                | #f
procedure
(match:start rec [which]) -> exact-nonnegative-integer?
  rec : ....
  which : exact-nonnegative-integer? = 0
procedure
(match:end rec [which]) -> exact-nonnegative-integer?
  rec : ....
  which : exact-nonnegative-integer? = 0
procedure
(match:substring rec [which]) -> string?
  rec : ....
  which : exact-nonnegative-integer? = 0
procedure
(regexp-exec re s) -> (or/c .... false/c)
  re : (or/c string? regexp?)
  s : string?
syntax
(class100* superclass-expr (interface-expr ...) init-ids
  class100-clause
  ...)
 
init-ids            = id
                    | (id ... id-with-default ...)
                    | (id ... id-with-default ... . id)
                       
id-with-default     = (id default-expr)
                       
class100-clause     = (sequence expr ...)
                    | (public public-method-decl ...)
                    | (override public-method-decl ...)
                    | (augment public-method-decl ...)
                    | (pubment public-method-decl ...)
                    | (overment public-method-decl ...)
                    | (augride public-method-decl ...)
                    | (private private-method-decl ...)
                    | (private-field private-var-decl ...)
                    | (inherit inherit-method-decl ...)
                    | (rename rename-method-decl ...)
                       
public-method-decl  = ((internal-id external-id) method-procedure)
                    | (id method-procedure)
                       
private-method-decl = (id method-procedure)
                       
private-var-decl    = (id initial-value-expr)
                    | (id)
                    | id
                       
inherit-method-decl = id
                    | (internal-instance-id external-inherited-id)
                       
rename-method-decl  = (internal-id external-id)
syntax
(class100 superclass-expr init-ids
    class100-clause
    ...)
syntax
(class100-asi superclass instance-id-clause ...)
syntax
(class100*-asi superclass interfaces instance-id-clause ...)
syntax
(super-init init-arg-expr ...)
syntax
(command-line program-name-expr argv-expr clause ...)
 
clause      = (multi flag-spec ...)
            | (once-each flag-spec ...)
            | (once-any flag-spec ...)
            | (final flag-spec ...)
            | (help-labels string ...)
            | (args arg-formals body-expr ...+)
            | (=> finish-proc-expr arg-help-expr help-proc-expr
                  unknown-proc-expr)
               
flag-spec   = (flags id ... help-str ...+ body-expr ...+)
            | (flags => handler-expr help-expr)
               
flags       = flag-string
            | (flag-string ...+)
               
arg-formals = id
            | (id ...)
            | (id ...+ . id)
procedure
(spawn thunk) -> thread?
  thunk : (-> any)
procedure
(channel) -> channel?
procedure
(channel-recv-evt ch) -> evt?
  ch : channel?
procedure
(channel-send-evt ch v) -> evt?
  ch : channel?
  v : any/c
procedure
(thread-done-evt thd) -> any
  thd : thread?
procedure
(current-time) -> real?
procedure
(time-evt tm) -> evt?
  tm : real?
procedure
(=? n ...+) -> boolean?
  n : number?
procedure
(<? n ...+) -> boolean?
  n : real?
procedure
(>? n ...+) -> boolean?
  n : real?
procedure
(<=? n ...+) -> boolean?
  n : real?
procedure
(>=? n ...+) -> boolean?
  n : real?
procedure
(1+ n) -> number?
  n : number?
procedure
(1- n) -> number?
  n : number?
procedure
(gentmp [base]) -> symbol?
  base : (or/c string? symbol?) = "g"
procedure
(flush-output-port [o]) -> void?
  o : output-port? = (current-output-port)
procedure
(real-time) -> exact-integer?
procedure
(atom? v) -> any
  v : any/c
syntax
(define-structure (name-id field-id ...))
(define-structure (name-id field-id ...)
                  ((init-field-id init-expr) ...))
procedure
(getprop sym property [default]) -> any/c
  sym : symbol?
  property : symbol?
  default : any/c = #f
procedure
(putprop sym property value) -> void?
  sym : symbol?
  property : symbol?
  value : any/c
procedure
(new-cafe [eval-handler]) -> any
  eval-handler : (any/c . -> . any) = #f
procedure
(compile-file src [dest filter]) -> path?
  src : path-string?
  dest : path-string?
       = (let-values ([(base name dir?) (split-path src)])
           (build-path base "compiled"
                       (path-add-suffix name #".zo")))
  filter : (any/c . -> . any/c) = values
syntax
(define/contract id contract-expr init-value-expr)
procedure
(box/c c) -> flat-contract?
  c : flat-contract?
procedure
(vectorof c) -> flat-contract?
  c : flat-contract?
procedure
(vector/c c ...) -> flat-contract?
  c : flat-contract?
syntax
(struct/c struct-id flat-contract-expr ...)
procedure
(build-flat-contract name predicate) -> flat-contract?
  name : symbol?
  predicate : (-> any/c any)
syntax
(-> contract-dom-expr ... any)
(-> contract-dom-expr ... contract-rng-expr)
syntax
(->* (contract-dom-expr ...) ->*rng)
(->* (contract-dom-expr ...) contract-rest-expr ->*rng)
 
->*rng = (contract-rng-expr ...)
       | any
syntax
(opt-> (contract-req-expr ...) (contact-opt-expr ...) any)
(opt-> (contract-req-expr ...) (contact-opt-expr ...) contract-rng-expr)
syntax
(opt->* (contract-req-expr ...) (contact-opt-expr ...) any)
(opt->* (contract-req-expr ...) (contact-opt-expr ...) (contract-rng-expr ...))
syntax
(->d contract-dom-expr ... contract-rng-fun-expr)
syntax
(->d* (contract-dom-expr ...) contract-rng-fun-expr)
(->d* (contract-dom-expr ...) contract-rest-expr contract-rng-fun-expr)
syntax
(->r ([dom-x contract-dom-expr] ...) rng)
(->r ([dom-x contract-dom-expr] ...) rest-x contract-rest-expr rng)
 
rng = any
    | (values contract-expr ...)
    | contract-expr
syntax
(->pp ([dom-x contract-dom-expr] ...) pre-cond-expr any)
(->pp ([dom-x contract-dom-expr] ...)
      pre-cond-expr
      (values [rng-x contract-rng-expr] ...)
      post-cond-expr)
(->pp ([dom-x contract-dom-expr] ...)
      pre-cond-expr
      contract-rng-expr
      rng-x
      post-cond-expr)
syntax
(->pp-rest ([dom-x contract-dom-expr] ...) rest-x rest-contract-expr pre-cond-expr any)
(->pp-rest ([dom-x contract-dom-expr] ...)
           rest-x rest-contract-expr
           pre-cond-expr
           (values [rng-x contract-rng-expr] ...)
           post-cond-expr)
(->pp-rest ([dom-x contract-dom-expr] ...)
           rest-x rest-contract-expr
           pre-cond-expr
           contract-rng-expr
           rng-x
           post-cond-expr)
syntax
(case-> mzlib/contract-arrow-contract-expr ...)
syntax
(object-contract [id mzlib/contract-arrow-contract-expr] ...)
syntax
(begin-lifted expr ...+)
syntax
(begin-with-definitions defn-or-expr ...)
syntax
(define-syntax-set (id ...) defn ...)
syntax
(evcase key-expr (value-expr body-expr ...) ...+)
(evcase key-expr (value-expr body-expr ...) ... [else body-expr ...])
procedure
(identity v) -> any/c
  v : any/c
syntax
(let+ clause body-expr ...+)
 
clause = (val target expr)
       | (rec target expr)
       | (vals (target ...) expr)
       | (recs (target expr) ...)
       | (_ expr ...)
          
target = id
       | (values id ...)
procedure
(loop-until start done? next f) -> void?
  start : any/c
  done? : (any/c . -> . any)
  next : (any/c . -> . any/c)
  f : (any/c . -> . any)
procedure
(namespace-defined? sym) -> boolean?
  sym : symbol?
syntax
(nand expr ...)
syntax
(nor expr ...)
syntax
(opt-lambda formals body ...+)
syntax
(recur id bindings body ...+)
syntax
(rec id value-expr)
(rec (id arg-id ...) expr)
(rec (id arg-id ... . rest-id) expr)
syntax
(this-expression-source-directory)
(this-expression-source-directory datum)
syntax
(this-expression-file-name)
(this-expression-file-name datum)
syntax
(hash-table (quote flag) ... (key-expr val-expr) ...)
procedure
(call-with-input-file* file proc [mode]) -> any
  file : path-string?
  proc : (input-port? -> any)
  mode : (one-of/c 'text 'binary) = 'binary
procedure
(call-with-output-file*  file         
                         proc         
                        [mode         
                         exists]) -> any
  file : path-string?
  proc : (output-port? -> any)
  mode : (one-of/c 'text 'binary) = 'binary
  exists : (one-of/c 'error 'append 'update
                     'replace 'truncate 'truncate/replace)
         = 'error
procedure
(build-relative-path base sub ...) -> (and/c path? relative-path?)
  base : (or/c path-string?
               (one-of/c 'up 'same))
  sub : (or/c (and/c path-string?
                     relative-path?)
              (one-of/c 'up 'same))
procedure
(build-absolute-path base sub ...) -> (and/c path? absolute-path?)
  base : (or/c (and/c path-string?
                      (not/c relative-path?))
               (one-of/c 'up 'same))
  sub : (or/c (and/c path-string?
                     (not/c complete-path?))
              (one-of/c 'up 'same))
syntax
(include path-spec)
 
path-spec = string
          | (build-path elem ...+)
          | (lib file-string collection-string ...)
             
elem      = string
          | up
          | same
syntax
(include-at/relative-to context source path-spec)
syntax
(include-at/relative-to/reader context source path-spec reader-expr)
syntax
(include/reader path-spec reader-expr)
syntax
(lambda/kw kw-formals body ...+)
syntax
(define/kw (head args) body ...+)
 
kw-formals     = id
               | (id ... [#:optional optional-spec ...]
                         [#:key key-spec ...]
                         [rest/mode-spec ...])
               | (id ... . id)
                  
optional-spec  = id
               | (id default-expr)
                  
key-spec       = id
               | (id default-expr)
               | (id keyword default-expr)
                  
rest/mode-spec = #:rest id
               | #:other-keys id
               | #:other-keys+body id
               | #:all-keys id
               | #:body kw-formals
               | #:allow-other-keys
               | #:forbid-other-keys
               | #:allow-duplicate-keys
               | #:forbid-duplicate-keys
               | #:allow-body
               | #:forbid-body
               | #:allow-anything
               | #:forbid-anything
                  
head           = id
               | (head . kw-formals)
procedure
(keyword-get args kw not-found) -> any
  args : (listof (cons/c keyword? any/c))
  kw : keyword?
  not-found : (-> any)
procedure
(first v) -> any/c
  v : pair?
procedure
(second v) -> any/c
  v : (and/c pair? ....)
procedure
(third v) -> any/c
  v : (and/c pair? ....)
procedure
(fourth v) -> any/c
  v : (and/c pair? ....)
procedure
(fifth v) -> any/c
  v : (and/c pair? ....)
procedure
(sixth v) -> any/c
  v : (and/c pair? ....)
procedure
(seventh v) -> any/c
  v : (and/c pair? ....)
procedure
(eighth v) -> any/c
  v : (and/c pair? ....)
procedure
(rest v) -> any/c
  v : pair?
procedure
(last-pair v) -> pair?
  v : pair?
procedure
(merge-sorted-lists lst1 lst2 less-than?) -> list?
  lst1 : list?
  lst2 : lst?
  less-than? : (any/c any/c . -> . any/c)
procedure
(mergesort lst less-than?) -> list?
  lst : list?
  less-than? : (any/c any/c . -> . any/c)
procedure
(quicksort lst less-than?) -> list?
  lst : list?
  less-than? : (any/c any/c . -> . any/c)
syntax
(match val-expr clause ...)
 
clause = [pat expr ...+]
       | [pat (=> id) expr ...+]
syntax
(match-lambda clause ...)
syntax
(match-lambda* clause ...)
syntax
(match-let ([pat expr] ...) body ...+)
syntax
(match-let* ([pat expr] ...) body ...+)
syntax
(match-letrec ([pat expr] ...) body ...+)
syntax
(match-define pat expr)
syntax
(define-match-expander id proc-expr)
(define-match-expander id proc-expr proc-expr)
(define-match-expander id proc-expr proc-expr proc-expr)
parameter
(match-equality-test) -> (any/c any/c . -> . any)
(match-equality-test comp-proc) -> void?
  comp-proc : (any/c any/c . -> . any)
value
e : real?
procedure
(gethostname) -> string?
procedure
(getpid) -> exact-integer?
procedure
(truncate-file file [n-bytes]) -> void?
  file : path-string?
  n-bytes : exact-nonnegative-integer? = 0
parameter
(abbreviate-cons-as-list) -> boolean?
(abbreviate-cons-as-list abbreviate?) -> void?
  abbreviate? : any/c
parameter
(booleans-as-true/false) -> boolean?
(booleans-as-true/false use-name?) -> void?
  use-name? : any/c
parameter
(use-named/undefined-handler) -> (any/c . -> . any/c)
(use-named/undefined-handler use-handler) -> void?
  use-handler : (any/c . -> . any/c)
parameter
(named/undefined-handler) -> (any/c . -> . any/c)
(named/undefined-handler use-handler) -> void?
  use-handler : (any/c . -> . any/c)
parameter
(add-make-prefix-to-constructor) -> boolean?
(add-make-prefix-to-constructor add-prefix?) -> void?
  add-prefix? : any/c
procedure
(build-share v) -> ....
  v : any/c
parameter
(constructor-style-printing) -> boolean?
(constructor-style-printing use-constructors?) -> void?
  use-constructors? : any/c
parameter
(current-build-share-hook)
 -> (any/c (any/c . -> . void?)
           (any/c . -> . void?) . -> . any)
(current-build-share-hook hook) -> void?
  hook : (any/c (any/c . -> . void?)
                (any/c . -> . void?) . -> . any)
parameter
(current-build-share-name-hook)
 -> (any/c . -> . (or/c symbol? false/c))
(current-build-share-name-hook hook) -> void?
  hook : (any/c . -> . (or/c symbol? false/c))
parameter
(current-print-convert-hook) -> (any/c (any/c . -> . any/c)
                                       (any/c . -> . any/c)
                                       . -> . any/c)
(current-print-convert-hook hook) -> void?
  hook : (any/c (any/c . -> . any/c)
                (any/c . -> . any/c)
                . -> . any/c)
parameter
(current-read-eval-convert-print-prompt) -> string?
(current-read-eval-convert-print-prompt str) -> void?
  str : string?
procedure
(get-shared share-info [cycles-only?])
 -> (list-of (cons/c symbol? any/c))
  share-info : ....
  cycles-only? : any/c = #f
procedure
(install-converting-printer) -> void?
procedure
(print-convert v [cycles-only?]) -> any/c
  v : any/c
  cycles-only? : any/c = (show-sharing)
procedure
(print-convert-expr share-info        
                    v                 
                    unroll-once?) -> any/c
  share-info : ....
  v : any/c
  unroll-once? : any/c
parameter
(quasi-read-style-printing) -> boolean?
(quasi-read-style-printing on?) -> void?
  on? : any/c
parameter
(show-sharing) -> boolean?
(show-sharing show?) -> void?
  show? : any/c
parameter
(whole/fractional-exact-numbers) -> boolean?
(whole/fractional-exact-numbers whole-frac?) -> void?
  whole-frac? : any/c
value
prop:print-converter : property?
procedure
(print-converter? v) -> any
  v : any/c
procedure
(print-converter-proc v)
 -> (any/c (any/c . -> . any/c) . -> . any/c)
  v : print-converter?
value
prop:print-convert-constructor-name : property?
procedure
(print-convert-named-constructor? v) -> any
  v : any/c
procedure
(print-convert-constructor-name v) -> any
  v : print-convert-named-constructor?
syntax
(define-match-expander id proc-expr)
(define-match-expander id proc-expr proc-expr)
(define-match-expander id proc-expr proc-expr proc-expr)
procedure
(strip-shell-command-start in) -> void?
  in : input-port?
procedure
(pregexp-match  pattern       
                input         
               [start-pos     
                end-pos       
                output-port]) 
 -> (or/c (listof (or/c (cons (or/c string? bytes?)
                              (or/c string? bytes?))
                        false/c))
          false/c)
  pattern : (or/c string? bytes? regexp? byte-regexp?)
  input : (or/c string? bytes? input-port?)
  start-pos : exact-nonnegative-integer? = 0
  end-pos : (or/c exact-nonnegative-integer? false/c) = #f
  output-port : (or/c output-port? false/c) = #f
procedure
(pregexp-match-positions  pattern       
                          input         
                         [start-pos     
                          end-pos       
                          output-port]) 
 -> (or/c (listof (or/c (cons exact-nonnegative-integer?
                              exact-nonnegative-integer?)
                        false/c))
          false/c)
  pattern : (or/c string? bytes? regexp? byte-regexp?)
  input : (or/c string? bytes? input-port?)
  start-pos : exact-nonnegative-integer? = 0
  end-pos : (or/c exact-nonnegative-integer? false/c) = #f
  output-port : (or/c output-port? false/c) = #f
procedure
(pregexp-split  pattern       
                input         
               [start-pos     
                end-pos]) -> (listof (or/c string? bytes?))
  pattern : (or/c string? bytes? regexp? byte-regexp?)
  input : (or/c string? bytes? input-port?)
  start-pos : exact-nonnegative-integer? = 0
  end-pos : (or/c exact-nonnegative-integer? false/c) = #f
procedure
(pregexp-replace pattern input insert) -> (or/c string? bytes?)
  pattern : (or/c string? bytes? regexp? byte-regexp?)
  input : (or/c string? bytes?)
  insert : (or/c string? bytes?
                 (string? . -> . string?)
                 (bytes? . -> . bytes?))
procedure
(pregexp-replace* pattern input insert) -> (or/c string? bytes?)
  pattern : (or/c string? bytes? regexp? byte-regexp?)
  input : (or/c string? bytes?)
  insert : (or/c string? bytes?
                 (string? . -> . string?)
                 (bytes? . -> . bytes?))
procedure
(restart-mzscheme init-argv             
                  adjust-flag-table     
                  argv                  
                  init-namespace)   -> boolean?
  init-argv : (vectorof string?)
  adjust-flag-table : (any/c . -> . any/c)
  argv : (vectorof string?)
  init-namespace : (-> any)
procedure
(make-evaluator language               
                requires               
                input-program ...) -> (any/c . -> . any)
  language : (or/c module-path?
                   (one-of/c 'r5rs 'beginner 'beginner-abbr
                             'intermediate 'intermediate-lambda 'advanced)
                   (list/c (one-of/c 'special) symbol?)
                   (list/c (one-of/c 'special) symbol?)
                   (cons/c (one-of/c 'begin) list?))
  requires : (or/c (cons/c 'begin list?)
                   (listof (or/c module-path? path?)))
  input-program : any/c
(make-evaluator module-decl) -> (any/c . -> . any)
  module-decl : (or/c syntax? pair?)
procedure
(send-event  receiver-bytes        
             event-class-bytes     
             event-id-bytes        
            [direct-arg-v          
             argument-list])   -> any/c
  receiver-bytes : (lambda (s) (and (bytes? s)
                                    (= 4 (bytes-length s))))
  event-class-bytes : (lambda (s) (and (bytes? s)
                                       (= 4 (bytes-length s))))
  event-id-bytes : (lambda (s) (and (bytes? s)
                                    (= 4 (bytes-length s))))
  direct-arg-v : any/c = (void)
  argument-list : list? = null
syntax
(define-serializable-struct id-maybe-super (field-id ...) maybe-inspector-expr)
syntax
(define-serializable-struct/versions id-maybe-super vers-num (field-id ...)
                                     (other-version-clause ...)
                                     maybe-inspector-expr)
 
id-maybe-super       = id
                     | (id super-id)
                        
maybe-inspector-expr = 
                     | inspector-expr
                        
other-version-clause = (other-vers make-proc-expr
                                   cycle-make-proc-expr)
procedure
(glob->regexp [str                 
               hide-dots?          
               case-sensitive?     
               simple?])       -> (or/c regexp? byte-regexp?)
  str : (or/c string bytes?) = ?
  hide-dots? : any/c = #t
  case-sensitive? : any/c
                  = (eq? (system-path-convention-type)'unix)
  simple? : any/c = #f
procedure
(string-lowercase! str) -> void?
  str : (and/c string? (not/c immutable?))
procedure
(string-uppercase! str) -> void?
  str : (and/c string? (not/c immutable?))
procedure
(eval-string str [err-handler]) -> list?
  str : (or/c string? bytes?)
  err-handler : (or/c false/c              = #f
                      (any/c . -> . any/c)
                      (-> any/c))
procedure
(expr->string expr) -> string?
  expr : any/c
procedure
(read-from-string str [err-handler]) -> any/c
  str : (or/c string? bytes?)
  err-handler : (or/c false/c              = #f
                      (any/c . -> . any/c)
                      (-> any/c))
procedure
(read-from-string-all str [err-handler]) -> list?
  str : (or/c string? bytes?)
  err-handler : (or/c false/c              = #f
                      (any/c . -> . any/c)
                      (-> any/c))
syntax
(copy-struct struct-id struct-expr
             (accessor-id field-expr) ...)
syntax
(define-struct/properties id (field-id ...)
                          ((prop-expr val-expr) ...)
                          maybe-inspector-expr)
 
maybe-inspector-expr = 
                     | expr
syntax
(make-->vector struct-id)
procedure
(consumer-thread f [init]) -> thread? procedure?
  f : procedure?
  init : (-> any) = void
procedure
(run-server  port-no            
             conn-proc          
             conn-timeout       
            [handler            
             listen             
             close              
             accept             
             accept/break]) -> void?
  port-no : (integer-in 1 65535)
  conn-proc : (input-port? output-port? . -> . any)
  conn-timeout : (and/c real? (not/c negative?))
  handler : (exn? . -> . any/c) = void
  listen : ((integer-in 1 65535) (one-of/c 5) (one-of/c #t)
            . -> . listener?)
         = tcp-listen
  close : (listener? . -> . any) = tcp-close
  accept : (listener? . ->* . (input-port? output-port?))
         = tcp-accept
  accept/break : (listener? . ->* . (input-port? output-port?))
               = tcp-accept/enable-break
procedure
(transcript-on filename) -> any
  filename : any/c
procedure
(transcript-off) -> any
syntax
(struct id (field-id ...) omit-decl ...)
 
omit-decl = -type
          | -selectors
          | -setters
          | -constructor
syntax
(struct/ctc id ([field-id contract-expr] ...) omit-decl ...)
 
omit-decl = -type
          | -selectors
          | -setters
          | -constructor
syntax
struct~r
syntax
struct~r/ctc
syntax
struct~s
syntax
struct~s/ctc
