;; scheme
;;; gambit.scm gambit geiser interaction

(define-macro (geiser:capture-output x . xs)
  (let ((out (gensym))
        (result (gensym)))
    `(let* ((,out (open-output-string))
            (,result (parameterize ((current-output-port ,out))
                       ,(cons 'begin (cons x xs)))))
       `((result ,(object->string ,result))
         (output . ,(get-output-string ,out))))))

(define (geiser:load-file filename)
  (geiser:capture-output (load filename)))

(define (geiser:eval module form . rest) ;; module is not yet supported in gambit
  (geiser:capture-output (eval form)))

(define (geiser:completions prefix . rest)
  rest
  (sort (all-environment-exports (current-environment) prefix)
        string-ci<?))

(define (geiser:newline)
  (newline))

(define (geiser:no-values)
  (values))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Completions, Autodoc and Signature
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; search for a procedure in gambit-procedures
;; returns the procedure symbol if it finds it
(define (procedure-search elem list)
  (cond ((not (pair? list))
         #f)
        ((eq? elem (caar list))
         `(,(car list)))
        (else (procedure-search elem (cdr list)))))

(define (geiser:autodoc ids . rest)
  (cond ((null? ids) '())
        ((not (list? ids))
         (geiser:autodoc (list ids)))
        ((not (symbol? (car ids)))
         (geiser:autodoc (cdr ids)))
        (else
         (procedure-search (car ids) gambit-procedures))))

(define (geiser:completions prefix . rest)
  (define (environment-symbols)
    (let ((env (current-expander-context)))
      (if env
          (map car (hash->list (expander-context-table env)))
          '())))
  rest
  (sort (filter (lambda (el)
                  (string-prefix? prefix el))
                (map symbol->string (environment-symbols)))
        string-ci<?))

;; the majority of gambit and r5rs procedures correctly formatted
(define gambit-procedures
  '((* ("args" (("required") ("optional" |[{z1}  ...]|) ("key")))("module"))
    (+ ("args" (("required" |{z1}  [...]|) ("optional") ("key")))("module"))
    (- ("args" (("required" |{z1} {z2}|) ("optional") ("key")))("module"))
    (- ("args" (("required") ("optional" |[{z} ...]|) ("key")))("module"))
    (/ ("args" (("required") ("optional" |[{z}  ...]|) ("key")))("module"))
    (< ("args" (("required") ("optional" |[{x1}  ...]|) ("key")))("module"))
    (<= ("args" (("required") ("optional" |[{x1}  ...]|) ("key")))("module"))
    (= ("args" (("required" |{z1} {z2} {z3}  [...]|) ("optional") ("key")))("module"))
    (= ("args" (("required" |{z1} [...]|) ("optional") ("key")))("module"))
    (> ("args" (("required") ("optional" |[{x1}  ...]|) ("key")))("module"))
    (>= ("args" (("required") ("optional" |[{x1}  ...]|) ("key")))("module"))
    (abandoned-mutex-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (abort ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (abs ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (acos ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (address-info-family
     ("args" (("required" |{address-info}|) ("optional") ("key")))("module"))
    (address-info-protocol
     ("args" (("required" |{address-info}|) ("optional") ("key")))("module"))
    (address-info-socket-info
     ("args" (("required" |{address-info}|) ("optional") ("key")))("module"))
    (address-info-socket-type
     ("args" (("required" |{address-info}|) ("optional") ("key")))("module"))
    (address-info? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (address-infos
     ("args"
      (("required")
       ("optional")
       ("key"
        |[host: {host}] [service: {service}] [family: {family}] [socket-type: {socket-type}] [protocol: {protocol}]|))))
    (all-bits-set? ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (and ("args" (("required" |{test1}  [...]|) ("optional") ("key")))("module"))
    (angle ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (any-bits-set? ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (append ("args" (("required" |{list}  [...]|) ("optional") ("key")))("module"))
    (append-strings ("args" (("required" |{lst}|) ("optional") ("key")))("module"))
    (append-vectors ("args" (("required" |{lst}|) ("optional") ("key")))("module"))
    (apply ("args"
            (("required" |{proc} [{arg1}  ...] {args}|) ("optional") ("key")))("module"))
    (arithmetic-shift ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (asin ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (assoc ("args" (("required" |{obj} {alist}|) ("optional") ("key")))("module"))
    (assq ("args" (("required" |{obj} {alist}|) ("optional") ("key")))("module"))
    (assv ("args" (("required" |{obj} {alist}|) ("optional") ("key")))("module"))
    (atan ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (atan ("args" (("required" |{y} {x}|) ("optional") ("key")))("module"))
    (begin
      ("args"
       (("required" |{expression1} {expression2}  [...]|) ("optional") ("key")))("module"))
    (bit-count ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (bit-set? ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (bitwise-and ("args" (("required" |{n} [...]|) ("optional") ("key")))("module"))
    (bitwise-ior ("args" (("required" |{n} [...]|) ("optional") ("key")))("module"))
    (bitwise-merge ("args" (("required" |{n1} {n2} {n3}|) ("optional") ("key")))("module"))
    (bitwise-not ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (bitwise-xor ("args" (("required" |{n} [...]|) ("optional") ("key")))("module"))
    (boolean? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (box ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (break ("args" (("required" |{proc} [...]|) ("optional") ("key")))("module"))
    (caar ("args" (("required" |{pair}|) ("optional") ("key")))("module"))
    (cadr ("args" (("required" |{pair}|) ("optional") ("key")))("module"))
    (call-with-current-continuation
     ("args" (("required" |{proc}|) ("optional") ("key")))("module"))
    (call-with-current-continuation
     ("args" (("required" |{proc}|) ("optional") ("key")))("module"))
    (call-with-input-file
        ("args" (("required" |{string} {proc}|) ("optional") ("key")))("module"))
    (call-with-output-file
        ("args" (("required" |{string} {proc}|) ("optional") ("key")))("module"))
    (call-with-values
        ("args" (("required" |{producer} {consumer}|) ("optional") ("key")))("module"))
    (car ("args" (("required" |{pair}|) ("optional") ("key")))("module"))
    (case ("args"
           (("required" |{key} {clause1} {clause2}  [...]|)
            ("optional")
            ("key")))("module"))
    (cdddar ("args" (("required" |{pair}|) ("optional") ("key")))("module"))
    (cddddr ("args" (("required" |{pair}|) ("optional") ("key")))("module"))
    (cdr ("args" (("required" |{pair}|) ("optional") ("key")))("module"))
    (ceiling ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (cfun-conversion-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (char->integer ("args" (("required" |{char}|) ("optional") ("key")))("module"))
    (char->integer ("args" (("required" |{char}|) ("optional") ("key")))("module"))
    (char-alphabetic? ("args" (("required" |{char}|) ("optional") ("key")))("module"))
    (char-ci<=? ("args" (("required") ("optional" |[{char}]|) ("key")))("module"))
    (char-ci<? ("args" (("required") ("optional" |[{char}]|) ("key")))("module"))
    (char-ci=? ("args" (("required") ("optional" |[{char}]|) ("key")))("module"))
    (char-ci>=? ("args" (("required") ("optional" |[{char}]|) ("key")))("module"))
    (char-ci>? ("args" (("required") ("optional" |[{char}]|) ("key")))("module"))
    (char-downcase ("args" (("required" |{char}|) ("optional") ("key")))("module"))
    (char-lower-case? ("args" (("required" |{letter}|) ("optional") ("key")))("module"))
    (char-numeric? ("args" (("required" |{char}|) ("optional") ("key")))("module"))
    (char-ready? ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (char-ready? ("args" (("required") ("optional") ("key")))("module"))
    (char-upcase ("args" (("required" |{char}|) ("optional") ("key")))("module"))
    (char-upper-case? ("args" (("required" |{letter}|) ("optional") ("key")))("module"))
    (char-whitespace? ("args" (("required" |{char}|) ("optional") ("key")))("module"))
    (char<=? ("args" (("required") ("optional" |[{char}]|) ("key")))("module"))
    (char<? ("args" (("required") ("optional" |[{char}]|) ("key")))("module"))
    (char=? ("args" (("required" |{char1} [...]|) ("optional") ("key")))("module"))
    (char=? ("args" (("required") ("optional" |[{char}]|) ("key")))("module"))
    (char>=? ("args" (("required") ("optional" |[{char}]|) ("key")))("module"))
    (char>? ("args" (("required") ("optional" |[{char}]|) ("key")))("module"))
    (char? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (circular-list ("args" (("required" |{x} {y} [...]|) ("optional") ("key")))("module"))
    (close-input-port ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (close-input-port ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (close-output-port ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (command-line ("args" (("required") ("optional") ("key")))("module"))
    (compile-file
     ("args"
      (("required"
        |{file} [options: {options}] [output: {output}] [expression: {expression}] [cc-options: {cc-options}] [ld-options-prelude: {ld-options-prelude}] [ld-options: {ld-options}]|)
       ("optional")
       ("key")))("module"))
    (compile-file-to-target
     ("args"
      (("required"
        |{file} [options: {options}] [output: {output}] [expression: {expression}]|)
       ("optional")
       ("key")))("module"))
    (complex? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (cond ("args"
           (("required" |{clause1} {clause2}  [...]|) ("optional") ("key")))("module"))
    (condition-variable-broadcast!
     ("args" (("required" |{condition-variable}|) ("optional") ("key")))("module"))
    (condition-variable-name
     ("args" (("required" |{condition-variable}|) ("optional") ("key")))("module"))
    (condition-variable-signal!
     ("args" (("required" |{condition-variable}|) ("optional") ("key")))("module"))
    (condition-variable-specific
     ("args" (("required" |{condition-variable}|) ("optional") ("key")))("module"))
    (condition-variable? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (cons ("args" (("required" |{obj1} {obj2}|) ("optional") ("key")))("module"))
    (cons* ("args" (("required" |{x} {y} [...]|) ("optional") ("key")))("module"))
    (continuation? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (copy-file
     ("args"
      (("required" |{source-path} {destination-path}|) ("optional") ("key")))("module"))
    (cos ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (create-directory
     ("args" (("required" |{path-or-settings}|) ("optional") ("key")))("module"))
    (create-fifo
     ("args" (("required" |{path-or-settings}|) ("optional") ("key")))("module"))
    (create-link
     ("args"
      (("required" |{source-path} {destination-path}|) ("optional") ("key")))("module"))
    (create-symbolic-link
     ("args"
      (("required" |{source-path} {destination-path}|) ("optional") ("key")))("module"))
    (current-directory
     ("args" (("required") ("optional" |[{new-current-directory}]|) ("key")))("module"))
    (current-exception-handler
     ("args" (("required") ("optional" |[{new-exception-handler}]|) ("key")))("module"))
    (current-input-port
     ("args" (("required") ("optional" |[{new-value}]|) ("key")))("module"))
    (current-input-port ("args" (("required") ("optional") ("key")))("module"))
    (current-jiffy ("args" (("required") ("optional") ("key")))("module"))
    (current-output-port ("args" (("required") ("optional") ("key")))("module"))
    (current-second ("args" (("required") ("optional") ("key")))("module"))
    (current-thread ("args" (("required") ("optional") ("key")))("module"))
    (current-time ("args" (("required") ("optional") ("key")))("module"))
    (current-user-interrupt-handler
     ("args" (("required") ("optional" |[{handler}]|) ("key")))("module"))
    (datum-parsing-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (deadlock-exception? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (delay ("args" (("required" |{expression}|) ("optional") ("key")))("module"))
    (delete-directory ("args" (("required" |{path}|) ("optional") ("key")))("module"))
    (delete-file ("args" (("required" |{path}|) ("optional") ("key")))("module"))
    (delete-file-or-directory
     ("args" (("required" |{path} [{recursive?}]|) ("optional") ("key")))("module"))
    (denominator ("args" (("required" |{q}|) ("optional") ("key")))("module"))
    (directory-files
     ("args" (("required") ("optional" |[{path-or-settings}]|) ("key")))("module"))
    (display ("args" (("required" |{obj} {port}|) ("optional") ("key")))("module"))
    (display ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (display-continuation-backtrace
     ("args"
      (("required"
        |{cont} [{port} [{all-frames?} [{display-env?} [{max-head} [{max-tail} [{depth}]]]]]]|)
       ("optional")
       ("key")))("module"))
    (display-dynamic-environment?
     ("args" (("required" |{display?}|) ("optional") ("key")))("module"))
    (display-environment-set!
     ("args" (("required" |{display?}|) ("optional") ("key")))("module"))
    (display-exception
     ("args" (("required" |{exc} [{port}]|) ("optional") ("key")))("module"))
    (divide-by-zero-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (do ("args"
         (("required"
           |(({variable1} {init1} {step1})  [...]) ({test} {expression}  [...]) {command}  [...]|)
          ("optional")
          ("key")))("module"))
    (dynamic-wind
      ("args" (("required" |{before} {thunk} {after}|) ("optional") ("key")))("module"))
    (eof-object? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (eq? ("args" (("required" |{obj1} {obj2}|) ("optional") ("key")))("module"))
    (eq?-hash ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (equal? ("args" (("required" |{obj1} {obj2}|) ("optional") ("key")))("module"))
    (equal?-hash ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (eqv? ("args" (("required" |{obj1} {obj2}|) ("optional") ("key")))("module"))
    (eqv?-hash ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (err-code->string ("args" (("required" |{code}|) ("optional") ("key")))("module"))
    (error-exception? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (eval ("args"
           (("required" |{expression} {environment-specifier}|)
            ("optional")
            ("key")))("module"))
    (eval ("args" (("required" |{expr} [{env}]|) ("optional") ("key")))("module"))
    (even? ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (exact->inexact ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (exact? ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (executable-path ("args" (("required") ("optional") ("key")))("module"))
    (exit ("args" (("required") ("optional" |[{status}]|) ("key")))("module"))
    (exp ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (expression-parsing-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (expt ("args" (("required" |{z1} {z2}|) ("optional") ("key")))("module"))
    (extract-bit-field
     ("args" (("required" |{n1} {n2} {n3}|) ("optional") ("key")))("module"))
    (f32vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (f64vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (file-exists?
     ("args" (("required" |{path} [{chase?}]|) ("optional") ("key")))("module"))
    (file-info ("args" (("required" |{path} [{chase?}]|) ("optional") ("key")))("module"))
    (file-info-attributes
     ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-creation-time
     ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-device ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-group ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-inode ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-last-access-time
     ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-last-change-time
     ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-last-modification-time
     ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-mode ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-number-of-links
     ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-owner ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-size ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info-type ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
    (file-info? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (file-last-access-and-modification-times-set!
     ("args" (("required" |{path} [{atime} [{mtime}]]|) ("optional") ("key")))("module"))
    (file-type ("args" (("required" |{path}|) ("optional") ("key")))("module"))
    (finite? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (first-bit-set ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fixnum->flonum ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fixnum-overflow-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (fixnum? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (fl* ("args" (("required" |{x1} [...]|) ("optional") ("key")))("module"))
    (fl+ ("args" (("required" |{x1} [...]|) ("optional") ("key")))("module"))
    (fl- ("args" (("required" |{x1} {x2} [...]|) ("optional") ("key")))("module"))
    (fl/ ("args" (("required" |{x1} {x2}|) ("optional") ("key")))("module"))
    (fl< ("args" (("required" |{x1} [...]|) ("optional") ("key")))("module"))
    (fl<= ("args" (("required" |{x1} [...]|) ("optional") ("key")))("module"))
    (fl= ("args" (("required" |{x1} [...]|) ("optional") ("key")))("module"))
    (fl> ("args" (("required" |{x1} [...]|) ("optional") ("key")))("module"))
    (fl>= ("args" (("required" |{x1} [...]|) ("optional") ("key")))("module"))
    (flabs ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flacos ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flasin ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flatan ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flceiling ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flcos ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (fldenominator ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (fleven? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flexp ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flexpt ("args" (("required" |{x} {y}|) ("optional") ("key")))("module"))
    (flfinite? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flfloor ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flhypot ("args" (("required" |{x} {y}|) ("optional") ("key")))("module"))
    (flinfinite? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flinteger? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (fllog ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flmax ("args" (("required" |{x1} {x2} [...]|) ("optional") ("key")))("module"))
    (flmin ("args" (("required" |{x1} {x2} [...]|) ("optional") ("key")))("module"))
    (flnan? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flnegative? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flnumerator ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flodd? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flonum? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (floor ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flpositive? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flround ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flsin ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flsqrt ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (fltan ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (fltruncate ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (flzero? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (fold ("args"
           (("required" |{proc} {base} {list}  [...]|) ("optional") ("key")))("module"))
    (for-each
     ("args" (("required" |{proc} [list1 list2  ...]|) ("optional") ("key")))("module"))
    (force ("args" (("required" |{promise}|) ("optional") ("key")))("module"))
    (force-output
     ("args" (("required") ("optional" |[{port} [{level}]]|) ("key")))("module"))
    (foreign? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (fx* ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fx+ ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fx- ("args" (("required" |{n1} {n2} [...]|) ("optional") ("key")))("module"))
    (fx< ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fx<= ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fx= ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fx> ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fx>= ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fxabs ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fxand ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fxarithmetic-shift ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxarithmetic-shift-left
     ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxarithmetic-shift-right
     ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxbit-count ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fxbit-set? ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxeven? ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fxfirst-bit-set ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fxif ("args" (("required" |{n1} {n2} {n3}|) ("optional") ("key")))("module"))
    (fxior ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fxlength ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fxmax ("args" (("required" |{n1} {n2} [...]|) ("optional") ("key")))("module"))
    (fxmin ("args" (("required" |{n1} {n2} [...]|) ("optional") ("key")))("module"))
    (fxmodulo ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxnegative? ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fxnot ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fxodd? ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fxpositive? ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fxquotient ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxremainder ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxwrap* ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fxwrap+ ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fxwrap- ("args" (("required" |{n1} {n2} [...]|) ("optional") ("key")))("module"))
    (fxwrapabs ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (fxwraparithmetic-shift
     ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxwraparithmetic-shift-left
     ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxwraplogical-shift-right
     ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxwrapquotient ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (fxxor ("args" (("required" |{n1} [...]|) ("optional") ("key")))("module"))
    (fxzero? ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (gc-report-set! ("args" (("required" |{report?}|) ("optional") ("key")))("module"))
    (gcd ("args" (("required" |{n1}  [...]|) ("optional") ("key")))("module"))
    (generate-proper-tail-calls
     ("args" (("required") ("optional" |[{new-value}]|) ("key")))("module"))
    (gensym ("args" (("required") ("optional" |[{prefix}]|) ("key")))("module"))
    (get-environment-variable
     ("args" (("required" |{name}|) ("optional") ("key")))("module"))
    (get-environment-variables ("args" (("required") ("optional") ("key")))("module"))
    (get-output-vector
     ("args" (("required" |{vector-port}|) ("optional") ("key")))("module"))
    (getenv ("args" (("required" |{name} [{default}]|) ("optional") ("key")))("module"))
    (group-info ("args" (("required" |{group-name-or-id}|) ("optional") ("key")))("module"))
    (group-info-gid ("args" (("required" |{group-info}|) ("optional") ("key")))("module"))
    (group-info-members
     ("args" (("required" |{group-info}|) ("optional") ("key")))("module"))
    (group-info-name ("args" (("required" |{group-info}|) ("optional") ("key")))("module"))
    (group-info? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (heap-overflow-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (help ("args" (("required" |{subject}|) ("optional") ("key")))("module"))
    (host-info ("args" (("required" |{host-name}|) ("optional") ("key")))("module"))
    (host-info-addresses
     ("args" (("required" |{host-info}|) ("optional") ("key")))("module"))
    (host-info-aliases ("args" (("required" |{host-info}|) ("optional") ("key")))("module"))
    (host-info-name ("args" (("required" |{host-info}|) ("optional") ("key")))("module"))
    (host-info? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (host-name ("args" (("required") ("optional") ("key")))("module"))
    (identity ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (if ("args"
         (("required" |{test} {consequent} {alternate}|) ("optional") ("key")))("module"))
    (if ("args" (("required" |{test} {consequent}|) ("optional") ("key")))("module"))
    (imag-part ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (improper-length-list-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (inactive-thread-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (inexact->exact ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (inexact? ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (initialized-thread-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (input-port-byte-position
     ("args"
      (("required" |{port} [{position} [{whence}]]|) ("optional") ("key")))("module"))
    (input-port-bytes-buffered
     ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (input-port-char-position
     ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (input-port-characters-buffered
     ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (input-port-line ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (input-port-readtable ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (input-port-readtable-set!
     ("args" (("required" |{port} {readtable}|) ("optional") ("key")))("module"))
    (input-port-timeout-set!
     ("args" (("required" |{port} {timeout} [{thunk}]|) ("optional") ("key")))("module"))
    (input-port? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (input-port? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (integer->char ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (integer-length ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (integer-nth-root ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (integer-sqrt ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (integer? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (interaction-environment ("args" (("required") ("optional") ("key")))("module"))
    (invalid-hash-number-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (iota ("args"
           (("required" |{count} [{start} [{step}]]|) ("optional") ("key")))("module"))
    (jiffies-per-second ("args" (("required") ("optional") ("key")))("module"))
    (join-timeout-exception? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (keyword-expected-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (keyword-hash ("args" (("required" |{keyword}|) ("optional") ("key")))("module"))
    (keyword? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (lambda ("args" (("required" |{formals} {body}|) ("optional") ("key")))("module"))
    (last ("args" (("required" |{pair}|) ("optional") ("key")))("module"))
    (lcm ("args" (("required") ("optional" |[{n1}  ...]|) ("key")))("module"))
    (length ("args" (("required" |{list}|) ("optional") ("key")))("module"))
    (let ("args"
          (("required" |{variable} {bindings} {body}|) ("optional") ("key")))("module"))
    (let ("args" (("required" |{bindings} {body}|) ("optional") ("key")))("module"))
    (let* ("args" (("required" |{bindings} {body}|) ("optional") ("key")))("module"))
    (let-syntax ("args" (("required" |{bindings} {body}|) ("optional") ("key")))("module"))
    (letrec ("args" (("required" |{bindings} {body}|) ("optional") ("key")))("module"))
    (letrec-syntax
        ("args" (("required" |{bindings} {body}|) ("optional") ("key")))("module"))
    (link-flat
     ("args"
      (("required"
        |{module-list} [output: {output}] [linker-name: {linker-name}] [warnings?: {warnings?}]|)
       ("optional")
       ("key")))("module"))
    (link-incremental
     ("args"
      (("required"
        |{module-list} [output: {output}] [linker-name: {linker-name}] [base: {base}] [warnings?: {warnings?}]|)
       ("optional")
       ("key")))("module"))
    (list ("args" (("required" |{obj}  [...]|) ("optional") ("key")))("module"))
    (list->string ("args" (("required" |{list}|) ("optional") ("key")))("module"))
    (list->table
     ("args"
      (("required"
        |{list} [size: {size}] [init: {init}] [weak-keys: {weak-keys}] [weak-values: {weak-values}] [test: {test}] [hash: {hash}] [min-load: {min-load}] [max-load: {max-load}]|)
       ("optional")
       ("key")))("module"))
    (list->vector ("args" (("required" |{list}|) ("optional") ("key")))("module"))
    (list-copy ("args" (("required" |{list}|) ("optional") ("key")))("module"))
    (list-ref ("args" (("required" |{list} {k}|) ("optional") ("key")))("module"))
    (list-set ("args" (("required" |{list} {k} {val}|) ("optional") ("key")))("module"))
    (list-tabulate ("args" (("required" |{n} {init-proc}|) ("optional") ("key")))("module"))
    (list-tail ("args" (("required" |{list} {k}|) ("optional") ("key")))("module"))
    (list? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (load ("args" (("required" |{filename}|) ("optional") ("key")))("module"))
    (log ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (magnitude ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (mailbox-receive-timeout-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (main ("args" (("required") ("optional" |[...]|) ("key")))("module"))
    (make-condition-variable
     ("args" (("required") ("optional" |[{name}]|) ("key")))("module"))
    (make-list ("args" (("required" |{n} [{fill}]|) ("optional") ("key")))("module"))
    (make-mutex ("args" (("required") ("optional" |[{name}]|) ("key")))("module"))
    (make-parameter
     ("args" (("required" |{obj} [{filter}]|) ("optional") ("key")))("module"))
    (make-polar ("args" (("required" |{x3} {x4}|) ("optional") ("key")))("module"))
    (make-random-source ("args" (("required") ("optional") ("key")))("module"))
    (make-rectangular ("args" (("required" |{x1} {x2}|) ("optional") ("key")))("module"))
    (make-string ("args" (("required" |{k}|) ("optional") ("key")))("module"))
    (make-string ("args" (("required" |{k} {char}|) ("optional") ("key")))("module"))
    (make-table
     ("args"
      (("required")
       ("optional")
       ("key"
        |[size: {size}] [init: {init}] [weak-keys: {weak-keys}] [weak-values: {weak-values}] [test: {test}] [hash: {hash}] [min-load: {min-load}] [max-load: {max-load}]|))))
    (make-thread
     ("args"
      (("required" |{thunk} [{name} [{thread-group}]]|) ("optional") ("key")))("module"))
    (make-thread-group
     ("args" (("required") ("optional" |[{name} [{thread-group}]]|) ("key")))("module"))
    (make-tls-context ("args" (("required") ("optional" |[{options}]|) ("key")))("module"))
    (make-vector ("args" (("required" |{k} {fill}|) ("optional") ("key")))("module"))
    (make-vector ("args" (("required" |{k} {fill}|) ("optional") ("key")))("module"))
    (make-vector ("args" (("required" |{k}|) ("optional") ("key")))("module"))
    (make-vector ("args" (("required" |{k}|) ("optional") ("key")))("module"))
    (make-will ("args" (("required" |{testator} {action}|) ("optional") ("key")))("module"))
    (map ("args" (("required" |{proc} [list1 list2  ...]|) ("optional") ("key")))("module"))
    (max ("args" (("required" |{x1} [...]|) ("optional") ("key")))("module"))
    (member ("args" (("required" |{obj} {alist}|) ("optional") ("key")))("module"))
    (memq ("args" (("required" |{obj} {alist}|) ("optional") ("key")))("module"))
    (memv ("args" (("required" |{obj} {alist}|) ("optional") ("key")))("module"))
    (min ("args" (("required") ("optional" |[{x1}  ...]|) ("key")))("module"))
    (modulo ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (multiple-c-return-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (mutex-lock!
     ("args"
      (("required" |{mutex} [{timeout} [{thread}]]|) ("optional") ("key")))("module"))
    (mutex-name ("args" (("required" |{mutex}|) ("optional") ("key")))("module"))
    (mutex-specific ("args" (("required" |{mutex}|) ("optional") ("key")))("module"))
    (mutex-state ("args" (("required" |{mutex}|) ("optional") ("key")))("module"))
    (mutex-unlock!
     ("args"
      (("required" |{mutex} [{condition-variable} [{timeout}]]|)
       ("optional")
       ("key")))("module"))
    (mutex? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (negative? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (network-info
     ("args" (("required" |{network-name-or-id}|) ("optional") ("key")))("module"))
    (network-info-aliases
     ("args" (("required" |{network-info}|) ("optional") ("key")))("module"))
    (network-info-name
     ("args" (("required" |{network-info}|) ("optional") ("key")))("module"))
    (network-info-number
     ("args" (("required" |{network-info}|) ("optional") ("key")))("module"))
    (network-info? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (newline ("args" (("required") ("optional") ("key")))("module"))
    (newline ("args" (("required") ("optional" |[{port}]|) ("key")))("module"))
    (newline ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (no-such-file-or-directory-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (nonempty-input-port-character-buffer-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (nonprocedure-operator-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (not ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (null-environment ("args" (("required" |{version}|) ("optional") ("key")))("module"))
    (null? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (number->string ("args" (("required" |{z} {radix}|) ("optional") ("key")))("module"))
    (number->string ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (number-of-arguments-limit-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (number? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (numerator ("args" (("required" |{q}|) ("optional") ("key")))("module"))
    (object->serial-number ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (object->string ("args" (("required" |{obj} [{n}]|) ("optional") ("key")))("module"))
    (object->u8vector
     ("args" (("required" |{obj} [{encoder}]|) ("optional") ("key")))("module"))
    (odd? ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (open-directory
     ("args" (("required" |{path-or-settings}|) ("optional") ("key")))("module"))
    (open-dummy ("args" (("required") ("optional") ("key")))("module"))
    (open-event-queue ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (open-file ("args" (("required" |{path-or-settings}|) ("optional") ("key")))("module"))
    (open-input-file ("args" (("required" |{filename}|) ("optional") ("key")))("module"))
    (open-output-file ("args" (("required" |{filename}|) ("optional") ("key")))("module"))
    (open-process
     ("args" (("required" |{path-or-settings}|) ("optional") ("key")))("module"))
    (open-string
     ("args" (("required") ("optional" |[{string-or-settings}]|) ("key")))("module"))
    (open-tcp-client
     ("args"
      (("required" |{port-number-or-address-or-settings}|) ("optional") ("key")))("module"))
    (open-tcp-server
     ("args"
      (("required" |{port-number-or-address-or-settings}|) ("optional") ("key")))("module"))
    (open-u8vector
     ("args" (("required") ("optional" |[{u8vector-or-settings}]|) ("key")))("module"))
    (open-udp
     ("args"
      (("required" |{port-number-or-address-or-settings}|) ("optional") ("key")))("module"))
    (open-vector
     ("args" (("required") ("optional" |[{vector-or-settings}]|) ("key")))("module"))
    (open-vector-pipe
     ("args"
      (("required")
       ("optional" |[{vector-or-settings1} [{vector-or-settings2}]]|)
       ("key")))("module"))
    (or ("args" (("required" |{test1}  [...]|) ("optional") ("key")))("module"))
    (os-exception? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (output-port-width ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (output-port? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (pair? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (path-expand
     ("args" (("required" |{path} [{origin-directory}]|) ("optional") ("key")))("module"))
    (path-extension ("args" (("required" |{path}|) ("optional") ("key")))("module"))
    (path-normalize
     ("args"
      (("required" |{path} [{allow-relative?} [{origin-directory}]]|)
       ("optional")
       ("key")))("module"))
    (peek-char ("args" (("required") ("optional" |[{port}]|) ("key")))("module"))
    (peek-char ("args" (("required") ("optional") ("key")))("module"))
    (peek-char ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (port-io-exception-handler-set!
     ("args" (("required" |{port} {handler}|) ("optional") ("key")))("module"))
    (port-settings-set!
     ("args" (("required" |{port} {settings}|) ("optional") ("key")))("module"))
    (positive? ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (pp ("args" (("required" |{obj} [{port}]|) ("optional") ("key")))("module"))
    (pretty-print ("args" (("required" |{obj} [{port}]|) ("optional") ("key")))("module"))
    (primordial-exception-handler
     ("args" (("required" |{exc}|) ("optional") ("key")))("module"))
    (print ("args"
            (("required") ("optional") ("key" |[port: {port}] {obj} [...]|))))
    (procedure? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (process-pid ("args" (("required" |{process-port}|) ("optional") ("key")))("module"))
    (process-status
     ("args"
      (("required" |{process-port} [{timeout} [{timeout-val}]]|)
       ("optional")
       ("key")))("module"))
    (process-times ("args" (("required") ("optional") ("key")))("module"))
    (processor? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (protocol-info
     ("args" (("required" |{protocol-name-or-id}|) ("optional") ("key")))("module"))
    (protocol-info-aliases
     ("args" (("required" |{protocol-info}|) ("optional") ("key")))("module"))
    (protocol-info-name
     ("args" (("required" |{protocol-info}|) ("optional") ("key")))("module"))
    (protocol-info-number
     ("args" (("required" |{protocol-info}|) ("optional") ("key")))("module"))
    (protocol-info? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (quasiquote ("args" (("required" |{qq template}|) ("optional") ("key")))("module"))
    (quote ("args" (("required" |{datum}|) ("optional") ("key")))("module"))
    (quotient ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (raise ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (random-f64vector ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (random-integer ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (random-real ("args" (("required") ("optional") ("key")))("module"))
    (random-source-make-f64vectors
     ("args" (("required" |{random-source} [{precision}]|) ("optional") ("key")))("module"))
    (random-source-make-integers
     ("args" (("required" |{random-source}|) ("optional") ("key")))("module"))
    (random-source-make-reals
     ("args" (("required" |{random-source} [{precision}]|) ("optional") ("key")))("module"))
    (random-source-make-u8vectors
     ("args" (("required" |{random-source}|) ("optional") ("key")))("module"))
    (random-source-randomize!
     ("args" (("required" |{random-source}|) ("optional") ("key")))("module"))
    (random-source-state-ref
     ("args" (("required" |{random-source}|) ("optional") ("key")))("module"))
    (random-source? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (random-u8vector ("args" (("required" |{n}|) ("optional") ("key")))("module"))
    (range-exception? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (rational? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (rationalize ("args" (("required" |{x} {y}|) ("optional") ("key")))("module"))
    (read ("args" (("required") ("optional" |[{port}]|) ("key")))("module"))
    (read ("args" (("required") ("optional") ("key")))("module"))
    (read ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (read-all ("args" (("required") ("optional" |[{port} [{reader}]]|) ("key")))("module"))
    (read-char ("args" (("required" |{port}|) ("optional") ("key")))("module"))
    (read-char ("args" (("required") ("optional") ("key")))("module"))
    (read-char ("args" (("required") ("optional" |[{port}]|) ("key")))("module"))
    (read-line
     ("args"
      (("required")
       ("optional" |[{port} [{separator} [{include-separator?} [{max-length}]]]]|)
       ("key")))("module"))
    (read-substring
     ("args"
      (("required" |{string} {start} {end} [{port} [{need}]]|)
       ("optional")
       ("key")))("module"))
    (read-subu8vector
     ("args"
      (("required" |{u8vector} {start} {end} [{port} [{need}]]|)
       ("optional")
       ("key")))("module"))
    (read-u8 ("args" (("required") ("optional" |[{port}]|) ("key")))("module"))
    (readtable-case-conversion?
     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
    (readtable-eval-allowed?
     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
    (readtable-keywords-allowed?
     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
    (readtable-max-unescaped-char
     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
    (readtable-max-write-length
     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
    (readtable-max-write-level
     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
    (readtable-sharing-allowed?
     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
    (readtable-start-syntax
     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
    (readtable-write-cdr-read-macros?
     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
    (readtable? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (real-part ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (real? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (remainder ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
    (rename-file
     ("args"
      (("required" |{source-path} {destination-path}|) ("optional") ("key")))("module"))
    (repl-display-environment?
     ("args" (("required" |{display?}|) ("optional") ("key")))("module"))
    (repl-input-port ("args" (("required") ("optional") ("key")))("module"))
    (repl-result-history-ref ("args" (("required" |{i}|) ("optional") ("key")))("module"))
    (reverse ("args" (("required" |{list}|) ("optional") ("key")))("module"))
    (reverse! ("args" (("required" |{list}|) ("optional") ("key")))("module"))
    (round ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (rpc-remote-error-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (s16vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (s32vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (s64vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (s8vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (scheduler-exception? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (scheme-report-environment
     ("args" (("required" |{version}|) ("optional") ("key")))("module"))
    (service-info
     ("args" (("required" |{service-name-or-id}|) ("optional") ("key")))("module"))
    (service-info-aliases
     ("args" (("required" |{service-info}|) ("optional") ("key")))("module"))
    (service-info-name
     ("args" (("required" |{service-info}|) ("optional") ("key")))("module"))
    (service-info-port-number
     ("args" (("required" |{service-info}|) ("optional") ("key")))("module"))
    (service-info-protocol
     ("args" (("required" |{service-info}|) ("optional") ("key")))("module"))
    (service-info? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (set! ("args" (("required" |{variable} {expression}|) ("optional") ("key")))("module"))
    (set-car! ("args" (("required" |{pair} {obj}|) ("optional") ("key")))("module"))
    (set-cdr! ("args" (("required" |{pair} {obj}|) ("optional") ("key")))("module"))
    (sfun-conversion-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (shell-command
     ("args" (("required" |{command} [{capture?}]|) ("optional") ("key")))("module"))
    (sin ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (socket-info? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (sqrt ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (stack-overflow-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (started-thread-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (step ("args" (("required") ("optional") ("key")))("module"))
    (string ("args" (("required" |{char}  [...]|) ("optional") ("key")))("module"))
    (string->list ("args" (("required" |{string}|) ("optional") ("key")))("module"))
    (string->number ("args" (("required" |{string}|) ("optional") ("key")))("module"))
    (string->number
     ("args" (("required" |{string} {radix}|) ("optional") ("key")))("module"))
    (string->symbol ("args" (("required" |{string}|) ("optional") ("key")))("module"))
    (string->uninterned-keyword
     ("args" (("required" |{name} [{hash}]|) ("optional") ("key")))("module"))
    (string->uninterned-symbol
     ("args" (("required" |{name} [{hash}]|) ("optional") ("key")))("module"))
    (string-append ("args" (("required" |{string}  [...]|) ("optional") ("key")))("module"))
    (string-ci<=? ("args" (("required") ("optional" |[{string}]|) ("key")))("module"))
    (string-ci<? ("args" (("required") ("optional" |[{string}]|) ("key")))("module"))
    (string-ci=? ("args" (("required") ("optional" |[{string}]|) ("key")))("module"))
    (string-ci=?-hash ("args" (("required" |{string}|) ("optional") ("key")))("module"))
    (string-ci>=? ("args" (("required") ("optional" |[{string}]|) ("key")))("module"))
    (string-ci>? ("args" (("required") ("optional" |[{string}]|) ("key")))("module"))
    (string-copy ("args" (("required" |{string}|) ("optional") ("key")))("module"))
    (string-fill! ("args" (("required" |{string} {char}|) ("optional") ("key")))("module"))
    (string-length ("args" (("required" |{string}|) ("optional") ("key")))("module"))
    (string-ref ("args" (("required" |{string} {k}|) ("optional") ("key")))("module"))
    (string-set!
     ("args" (("required" |{string} {k} {char}|) ("optional") ("key")))("module"))
    (string-shrink! ("args" (("required" |{string} {k}|) ("optional") ("key")))("module"))
    (string<=? ("args" (("required") ("optional" |[{string}]|) ("key")))("module"))
    (string<? ("args" (("required") ("optional" |[{string}]|) ("key")))("module"))
    (string=? ("args" (("required") ("optional" |[{string}]|) ("key")))("module"))
    (string=? ("args" (("required" |{string1} [...]|) ("optional") ("key")))("module"))
    (string=?-hash ("args" (("required" |{string}|) ("optional") ("key")))("module"))
    (string>=? ("args" (("required") ("optional" |[{string}]|) ("key")))("module"))
    (string>? ("args" (("required") ("optional" |[{string}]|) ("key")))("module"))
    (string? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (substring
     ("args" (("required" |{string} {start} {end}|) ("optional") ("key")))("module"))
    (substring-fill!
     ("args" (("required" |{string} {start} {end} {fill}|) ("optional") ("key")))("module"))
    (substring-move!
     ("args"
      (("required" |{src-string} {src-start} {src-end} {dst-string} {dst-start}|)
       ("optional")
       ("key")))("module"))
    (subvector
     ("args" (("required" |{vector} {start} {end}|) ("optional") ("key")))("module"))
    (subvector-fill!
     ("args" (("required" |{vector} {start} {end} {fill}|) ("optional") ("key")))("module"))
    (subvector-move!
     ("args"
      (("required" |{src-vector} {src-start} {src-end} {dst-vector} {dst-start}|)
       ("optional")
       ("key")))("module"))
    (symbol->string ("args" (("required" |{symbol}|) ("optional") ("key")))("module"))
    (symbol-hash ("args" (("required" |{symbol}|) ("optional") ("key")))("module"))
    (symbol? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (system-stamp ("args" (("required") ("optional") ("key")))("module"))
    (system-type ("args" (("required") ("optional") ("key")))("module"))
    (system-version ("args" (("required") ("optional") ("key")))("module"))
    (table->list ("args" (("required" |{table}|) ("optional") ("key")))("module"))
    (table-copy ("args" (("required" |{table}|) ("optional") ("key")))("module"))
    (table-for-each ("args" (("required" |{proc} {table}|) ("optional") ("key")))("module"))
    (table-length ("args" (("required" |{table}|) ("optional") ("key")))("module"))
    (table-merge
     ("args"
      (("required" |{table1} {table2} [{table2-takes-precedence?}]|)
       ("optional")
       ("key")))("module"))
    (table-merge!
     ("args"
      (("required" |{table1} {table2} [{table2-takes-precedence?}]|)
       ("optional")
       ("key")))("module"))
    (table-ref
     ("args" (("required" |{table} {key} [{default}]|) ("optional") ("key")))("module"))
    (table-search ("args" (("required" |{proc} {table}|) ("optional") ("key")))("module"))
    (table-set!
     ("args" (("required" |{table} {key} [{value}]|) ("optional") ("key")))("module"))
    (table? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (take ("args" (("required" |{x} {i}|) ("optional") ("key")))("module"))
    (tan ("args" (("required" |{z}|) ("optional") ("key")))("module"))
    (tcp-client-local-socket-info
     ("args" (("required" |{tcp-client-port}|) ("optional") ("key")))("module"))
    (tcp-server-socket-info
     ("args" (("required" |{tcp-server-port}|) ("optional") ("key")))("module"))
    (tcp-service-register!
     ("args"
      (("required"
        |{port-number-or-address-or-settings} {thunk} [{thread-group}]|)
       ("optional")
       ("key")))("module"))
    (terminated-thread-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (thread-base-priority ("args" (("required" |{thread}|) ("optional") ("key")))("module"))
    (thread-init!
     ("args"
      (("required" |{thread} {thunk} [{name} [{thread-group}]]|)
       ("optional")
       ("key")))("module"))
    (thread-interrupt!
     ("args" (("required" |{thread} [{thunk}]|) ("optional") ("key")))("module"))
    (thread-join!
     ("args"
      (("required" |{thread} [{timeout} [{timeout-val}]]|) ("optional") ("key")))("module"))
    (thread-name ("args" (("required" |{thread}|) ("optional") ("key")))("module"))
    (thread-priority-boost
     ("args" (("required" |{thread}|) ("optional") ("key")))("module"))
    (thread-quantum ("args" (("required" |{thread}|) ("optional") ("key")))("module"))
    (thread-receive
     ("args" (("required") ("optional" |[{timeout} [{default}]]|) ("key")))("module"))
    (thread-send ("args" (("required" |{thread} {msg}|) ("optional") ("key")))("module"))
    (thread-sleep! ("args" (("required" |{timeout}|) ("optional") ("key")))("module"))
    (thread-specific ("args" (("required" |{thread}|) ("optional") ("key")))("module"))
    (thread-start! ("args" (("required" |{thread}|) ("optional") ("key")))("module"))
    (thread-state ("args" (("required" |{thread}|) ("optional") ("key")))("module"))
    (thread-suspend! ("args" (("required" |{thread}|) ("optional") ("key")))("module"))
    (thread-terminate! ("args" (("required" |{thread}|) ("optional") ("key")))("module"))
    (thread-thread-group ("args" (("required" |{thread}|) ("optional") ("key")))("module"))
    (thread-yield! ("args" (("required") ("optional") ("key")))("module"))
    (thread? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (timeout->time ("args" (("required" |{timeout}|) ("optional") ("key")))("module"))
    (trace ("args" (("required" |{proc} [...]|) ("optional") ("key")))("module"))
    (transcript-off ("args" (("required") ("optional") ("key")))("module"))
    (transcript-on ("args" (("required" |{filename}|) ("optional") ("key")))("module"))
    (transcript-on ("args" (("required" |{file}|) ("optional") ("key")))("module"))
    (truncate ("args" (("required" |{x}|) ("optional") ("key")))("module"))
    (tty? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (type-exception? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (u16vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (u32vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (u64vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (u8vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (udp-destination-set!
     ("args"
      (("required" |{address} {port-number} [{udp-port}]|) ("optional") ("key")))("module"))
    (udp-local-socket-info
     ("args" (("required" |{udp-port}|) ("optional") ("key")))("module"))
    (udp-read-u8vector
     ("args" (("required") ("optional" |[{udp-port}]|) ("key")))("module"))
    (unbound-global-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (unbound-key-exception? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (unbound-os-environment-variable-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (unbound-serial-number-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (uncaught-exception? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (uninitialized-thread-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (unknown-keyword-argument-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (unterminated-process-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (user-info ("args" (("required" |{user-name-or-id}|) ("optional") ("key")))("module"))
    (user-info-gid ("args" (("required" |{user-info}|) ("optional") ("key")))("module"))
    (user-info-home ("args" (("required" |{user-info}|) ("optional") ("key")))("module"))
    (user-info-name ("args" (("required" |{user-info}|) ("optional") ("key")))("module"))
    (user-info-shell ("args" (("required" |{user-info}|) ("optional") ("key")))("module"))
    (user-info-uid ("args" (("required" |{user-info}|) ("optional") ("key")))("module"))
    (user-info? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (user-name ("args" (("required") ("optional") ("key")))("module"))
    (values ("args" (("required") ("optional" |[obj  ...]|) ("key")))("module"))
    (vector ("args" (("required" |{obj}  [...]|) ("optional") ("key")))("module"))
    (vector->list ("args" (("required" |{vector}|) ("optional") ("key")))("module"))
    (vector-append ("args" (("required" |{vector} [...]|) ("optional") ("key")))("module"))
    (vector-copy ("args" (("required" |{vector}|) ("optional") ("key")))("module"))
    (vector-fill! ("args" (("required" |{vector} {fill}|) ("optional") ("key")))("module"))
    (vector-length ("args" (("required" |{vector}|) ("optional") ("key")))("module"))
    (vector-ref ("args" (("required" |{vector} {k}|) ("optional") ("key")))("module"))
    (vector-ref ("args" (("required" |{vector} {k}|) ("optional") ("key")))("module"))
    (vector-set!
     ("args" (("required" |{vector} {k} {obj}|) ("optional") ("key")))("module"))
    (vector-shrink! ("args" (("required" |{vector} {k}|) ("optional") ("key")))("module"))
    (vector? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (void ("args" (("required") ("optional") ("key")))("module"))
    (with-exception-catcher
     ("args" (("required" |{handler} {thunk}|) ("optional") ("key")))("module"))
    (with-exception-handler
        ("args" (("required" |{handler} {thunk}|) ("optional") ("key")))("module"))
    (with-input-from-file
        ("args" (("required" |{string} {thunk}|) ("optional") ("key")))("module"))
    (with-input-from-port
        ("args" (("required" |{port} {thunk}|) ("optional") ("key")))("module"))
    (with-output-to-file
        ("args" (("required" |{string} {thunk}|) ("optional") ("key")))("module"))
    (write ("args" (("required" |{obj} [{port}]|) ("optional") ("key")))("module"))
    (write ("args" (("required" |{obj} {port}|) ("optional") ("key")))("module"))
    (write ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (write-char ("args" (("required" |{char}|) ("optional") ("key")))("module"))
    (write-char ("args" (("required" |{char} {port}|) ("optional") ("key")))("module"))
    (write-char ("args" (("required" |{char} [{port}]|) ("optional") ("key")))("module"))
    (write-u8 ("args" (("required" |{n} [{port}]|) ("optional") ("key")))("module"))
    (wrong-number-of-arguments-exception?
     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
    (xcons ("args" (("required" |{d} {a}|) ("optional") ("key")))("module"))
    (zero? ("args" (("required" |{z}|) ("optional") ("key")))("module"))))

;; Esc-C-b to skip this particularly long sexpression.





;; Spawn a server for remote repl access TODO make it works with remote repl

;;(define (geiser-start-server . rest)
;;  (let* ((listener (tcp-listen 0))
;;         (port (tcp-listener-port listener)))
;;    (define (remote-repl)
;;        (receive (in out) (tcp-accept listener)
;;          (current-input-port in)
;;          (current-output-port out)
;;          (current-error-port out)
;;          
;;          (repl)))
;;    
;;    (thread-start! (make-thread remote-repl))
;;    
;;    (write-to-log `(geiser-start-server . ,rest))
;;    (write-to-log `(port ,port))
;; 
;;    (write `(port ,port))
;;    (newline)))