[nongnu] elpa/geiser-gambit c559075 07/34: better autodoc , completion working , better procedure search , WIP

[Philip Kaludercic]

branch: elpa/geiser-gambit
commit c559075c699700a5c207a86643cf0183fb5258ac
Author: mathieu2em <math.per@hotmail.com>
Commit: mathieu2em <math.per@hotmail.com>

    better autodoc , completion working , better procedure search , WIP
    
    
    completions
---
 elisp/geiser-gambit.el          |    2 +-
 scheme/gambit/geiser/gambit.scm | 1312 ++++++++++++++++++++-------------------
 2 files changed, 671 insertions(+), 643 deletions(-)

diff --git a/elisp/geiser-gambit.el b/elisp/geiser-gambit.el
index 46964b8..e839665 100644
--- a/elisp/geiser-gambit.el
+++ b/elisp/geiser-gambit.el
@@ -309,7 +309,7 @@ If `t', Geiser will use `next-error' to jump to the error's 
location."
 ;;; Implementation definition:
 
 (define-geiser-implementation gambit
-  (unsupported-procedures '(callers callees generic-methods module-completions
+  (unsupported-procedures '(callers callees generic-methods
                             module-location symbol-documentation))
   (binary geiser-gambit--binary)
   (arglist geiser-gambit--parameters)
diff --git a/scheme/gambit/geiser/gambit.scm b/scheme/gambit/geiser/gambit.scm
index 70ce48e..028f6ee 100644
--- a/scheme/gambit/geiser/gambit.scm
+++ b/scheme/gambit/geiser/gambit.scm
@@ -16,11 +16,6 @@
 (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))
 
@@ -29,16 +24,12 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; 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 (##procedure-search elem)
+  (or (assq elem ##gambit-procedures) '()))
 
 (define (geiser:autodoc ids . rest)
   (cond ((null? ids) '())
@@ -47,954 +38,991 @@
         ((not (symbol? (car ids)))
          (geiser:autodoc (cdr ids)))
         (else
-         (procedure-search (car ids) gambit-procedures))))
+         (list (##procedure-search (car ids))))))
 
-(define (geiser:completions prefix . rest)
+(define (geiser:module-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<?))
+    (map car ##gambit-procedures))
+  (##sort-list (filter (lambda (el)
+                         (##string-prefix? prefix el))
+                       (map symbol->string (environment-symbols)))
+               string-ci<?))
+
+(define (geiser:completions prefix . rest)
+  rest)
+
+;; string-prefix function
+(define (##string-prefix? pref str)
+  (let ((str-len (string-length str))
+        (pref-len (string-length pref)))
+    (and (string? pref)
+         (string? str)
+         (<= pref-len str-len)
+         (string=? (substring str 0 pref-len) pref))))
 
+;; filter
+(define (filter f lst)
+  (fold-right (lambda (e r) (if (f e) (cons e r) r)) '() lst))
+        
+;; sorting algorithms
+(define (##sort-list l <?)
+
+   (define (mergesort l)
+
+     (define (merge l1 l2)
+       (cond ((null? l1) l2)
+             ((null? l2) l1)
+             (else
+              (let ((e1 (car l1)) (e2 (car l2)))
+                (if (<? e1 e2)
+                  (cons e1 (merge (cdr l1) l2))
+                  (cons e2 (merge l1 (cdr l2))))))))
+
+     (define (split l)
+       (if (or (null? l) (null? (cdr l)))
+         l
+         (cons (car l) (split (cddr l)))))
+
+     (if (or (null? l) (null? (cdr l)))
+       l
+       (let* ((l1 (mergesort (split l)))
+              (l2 (mergesort (split (cdr l)))))
+         (merge l1 l2))))
+
+   (mergesort l))
+ 
 ;; 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"))
+(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"))
+     ("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"))
+     ("args" (("required" address-info) ("optional") ("key")))("module"))
     (address-info-protocol
-     ("args" (("required" |{address-info}|) ("optional") ("key")))("module"))
+     ("args" (("required" address-info) ("optional") ("key")))("module"))
     (address-info-socket-info
-     ("args" (("required" |{address-info}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+        [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"))
+            (("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"))
+       (("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"))
+     ("args" (("required" proc) ("optional") ("key")))("module"))
     (call-with-current-continuation
-     ("args" (("required" |{proc}|) ("optional") ("key")))("module"))
+     ("args" (("required" proc) ("optional") ("key")))("module"))
     (call-with-input-file
-        ("args" (("required" |{string} {proc}|) ("optional") 
("key")))("module"))
+        ("args" (("required" string proc) ("optional") ("key")))("module"))
     (call-with-output-file
-        ("args" (("required" |{string} {proc}|) ("optional") 
("key")))("module"))
+        ("args" (("required" string proc) ("optional") ("key")))("module"))
     (call-with-values
-        ("args" (("required" |{producer} {consumer}|) ("optional") 
("key")))("module"))
-    (car ("args" (("required" |{pair}|) ("optional") ("key")))("module"))
+        ("args" (("required" producer consumer) ("optional") 
("key")))("module"))
+    (car ("args" (("required" pair) ("optional") ("key")))("module"))
     (case ("args"
-           (("required" |{key} {clause1} {clause2}  [...]|)
+           (("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"))
+    (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"))
+     ("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"))
+    (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}]|)
+        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}]|)
+        file [options: options] [output: output] [expression: expression])
        ("optional")
        ("key")))("module"))
-    (complex? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
+    (complex? ("args" (("required" obj) ("optional") ("key")))("module"))
     (cond ("args"
-           (("required" |{clause1} {clause2}  [...]|) ("optional") 
("key")))("module"))
+           (("required" clause1 clause2  [...]) ("optional") 
("key")))("module"))
     (condition-variable-broadcast!
-     ("args" (("required" |{condition-variable}|) ("optional") 
("key")))("module"))
+     ("args" (("required" condition-variable) ("optional") ("key")))("module"))
     (condition-variable-name
-     ("args" (("required" |{condition-variable}|) ("optional") 
("key")))("module"))
+     ("args" (("required" condition-variable) ("optional") ("key")))("module"))
     (condition-variable-signal!
-     ("args" (("required" |{condition-variable}|) ("optional") 
("key")))("module"))
+     ("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"))
+     ("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"))
+      (("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"))
+     ("args" (("required" path-or-settings) ("optional") ("key")))("module"))
     (create-fifo
-     ("args" (("required" |{path-or-settings}|) ("optional") 
("key")))("module"))
+     ("args" (("required" path-or-settings) ("optional") ("key")))("module"))
     (create-link
      ("args"
-      (("required" |{source-path} {destination-path}|) ("optional") 
("key")))("module"))
+      (("required" source-path destination-path) ("optional") 
("key")))("module"))
     (create-symbolic-link
      ("args"
-      (("required" |{source-path} {destination-path}|) ("optional") 
("key")))("module"))
+      (("required" source-path destination-path) ("optional") 
("key")))("module"))
     (current-directory
-     ("args" (("required") ("optional" |[{new-current-directory}]|) 
("key")))("module"))
+     ("args" (("required") ("optional" [new-current-directory]) 
("key")))("module"))
     (current-exception-handler
-     ("args" (("required") ("optional" |[{new-exception-handler}]|) 
("key")))("module"))
+     ("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"))
+     ("args" (("required" a b c) ("optional" new-value) ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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}]]]]]]|)
+        cont [port [all-frames? [display-env? [max-head [max-tail [depth]]]]]])
        ("optional")
        ("key")))("module"))
     (display-dynamic-environment?
-     ("args" (("required" |{display?}|) ("optional") ("key")))("module"))
+     ("args" (("required" display?) ("optional") ("key")))("module"))
     (display-environment-set!
-     ("args" (("required" |{display?}|) ("optional") ("key")))("module"))
+     ("args" (("required" display?) ("optional") ("key")))("module"))
     (display-exception
-     ("args" (("required" |{exc} [{port}]|) ("optional") ("key")))("module"))
+     ("args" (("required" exc [port]) ("optional") ("key")))("module"))
     (divide-by-zero-exception?
-     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
+     ("args" (("required" obj) ("optional") ("key")))("module"))
     (do ("args"
          (("required"
-           |(({variable1} {init1} {step1})  [...]) ({test} {expression}  
[...]) {command}  [...]|)
+           ((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"))
+      ("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}|)
+           (("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"))
+    (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"))
+    (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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("args" (("required" file-info) ("optional") ("key")))("module"))
     (file-info-last-change-time
-     ("args" (("required" |{file-info}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+           (("required" proc base list  [...]) ("optional") 
("key")))("module"))
     (for-each
-     ("args" (("required" |{proc} [list1 list2  ...]|) ("optional") 
("key")))("module"))
-    (force ("args" (("required" |{promise}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("args" (("required" n1 n2) ("optional") ("key")))("module"))
     (fxwraparithmetic-shift-left
-     ("args" (("required" |{n1} {n2}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+     ("args" (("required") ("optional" [new-value]) ("key")))("module"))
+    (gensym ("args" (("required") ("optional" [prefix]) ("key")))("module"))
     (get-environment-variable
-     ("args" (("required" |{name}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+    (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"))
+         (("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"))
+     ("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"))
+     ("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"))
+     ("args" (("required" obj) ("optional") ("key")))("module"))
     (input-port-byte-position
      ("args"
-      (("required" |{port} [{position} [{whence}]]|) ("optional") 
("key")))("module"))
+      (("required" port [position [whence]]) ("optional") ("key")))("module"))
     (input-port-bytes-buffered
-     ("args" (("required" |{port}|) ("optional") ("key")))("module"))
+     ("args" (("required" port) ("optional") ("key")))("module"))
     (input-port-char-position
-     ("args" (("required" |{port}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("args" (("required" obj) ("optional") ("key")))("module"))
     (iota ("args"
-           (("required" |{count} [{start} [{step}]]|) ("optional") 
("key")))("module"))
+           (("required" count [start [step]]) ("optional") ("key")))("module"))
     (jiffies-per-second ("args" (("required") ("optional") ("key")))("module"))
-    (join-timeout-exception? ("args" (("required" |{obj}|) ("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"))
+     ("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"))
+          (("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"))
+        ("args" (("required" bindings body) ("optional") ("key")))("module"))
     (link-flat
      ("args"
       (("required"
-        |{module-list} [output: {output}] [linker-name: {linker-name}] 
[warnings?: {warnings?}]|)
+        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?}]|)
+        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 ("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}]|)
+        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"))
+    (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"))
+     ("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"))
+     ("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"))
+     ("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-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}]|))))
+        [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"))
+      (("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"))
+     ("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"))
+     ("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"))
+      (("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}]]|)
+      (("required" mutex [condition-variable [timeout]])
        ("optional")
        ("key")))("module"))
-    (mutex? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
-    (negative? ("args" (("required" |{x}|) ("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"))
+     ("args" (("required" network-name-or-id) ("optional") ("key")))("module"))
     (network-info-aliases
-     ("args" (("required" |{network-info}|) ("optional") ("key")))("module"))
+     ("args" (("required" network-info) ("optional") ("key")))("module"))
     (network-info-name
-     ("args" (("required" |{network-info}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+    (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"))
+     ("args" (("required" obj) ("optional") ("key")))("module"))
     (nonempty-input-port-character-buffer-exception?
-     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("args" (("required" obj [encoder]) ("optional") ("key")))("module"))
+    (odd? ("args" (("required" n) ("optional") ("key")))("module"))
     (open-directory
-     ("args" (("required" |{path-or-settings}|) ("optional") 
("key")))("module"))
+     ("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-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"))
+     ("args" (("required" path-or-settings) ("optional") ("key")))("module"))
     (open-string
-     ("args" (("required") ("optional" |[{string-or-settings}]|) 
("key")))("module"))
+     ("args" (("required") ("optional" [string-or-settings]) 
("key")))("module"))
     (open-tcp-client
      ("args"
-      (("required" |{port-number-or-address-or-settings}|) ("optional") 
("key")))("module"))
+      (("required" port-number-or-address-or-settings) ("optional") 
("key")))("module"))
     (open-tcp-server
      ("args"
-      (("required" |{port-number-or-address-or-settings}|) ("optional") 
("key")))("module"))
+      (("required" port-number-or-address-or-settings) ("optional") 
("key")))("module"))
     (open-u8vector
-     ("args" (("required") ("optional" |[{u8vector-or-settings}]|) 
("key")))("module"))
+     ("args" (("required") ("optional" [u8vector-or-settings]) 
("key")))("module"))
     (open-udp
      ("args"
-      (("required" |{port-number-or-address-or-settings}|) ("optional") 
("key")))("module"))
+      (("required" port-number-or-address-or-settings) ("optional") 
("key")))("module"))
     (open-vector
-     ("args" (("required") ("optional" |[{vector-or-settings}]|) 
("key")))("module"))
+     ("args" (("required") ("optional" [vector-or-settings]) 
("key")))("module"))
     (open-vector-pipe
      ("args"
       (("required")
-       ("optional" |[{vector-or-settings1} [{vector-or-settings2}]]|)
+       ("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"))
+    (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"))
+     ("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}]]|)
+      (("required" path [allow-relative? [origin-directory]])
        ("optional")
        ("key")))("module"))
-    (peek-char ("args" (("required") ("optional" |[{port}]|) 
("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"))
+    (peek-char ("args" (("required" port) ("optional") ("key")))("module"))
     (port-io-exception-handler-set!
-     ("args" (("required" |{port} {handler}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+     ("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"))
+            (("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}]]|)
+      (("required" process-port [timeout [timeout-val]])
        ("optional")
        ("key")))("module"))
     (process-times ("args" (("required") ("optional") ("key")))("module"))
-    (processor? ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
+    (processor? ("args" (("required" obj) ("optional") ("key")))("module"))
     (protocol-info
-     ("args" (("required" |{protocol-name-or-id}|) ("optional") 
("key")))("module"))
+     ("args" (("required" protocol-name-or-id) ("optional") 
("key")))("module"))
     (protocol-info-aliases
-     ("args" (("required" |{protocol-info}|) ("optional") ("key")))("module"))
+     ("args" (("required" protocol-info) ("optional") ("key")))("module"))
     (protocol-info-name
-     ("args" (("required" |{protocol-info}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+     ("args" (("required" random-source [precision]) ("optional") 
("key")))("module"))
     (random-source-make-integers
-     ("args" (("required" |{random-source}|) ("optional") ("key")))("module"))
+     ("args" (("required" random-source) ("optional") ("key")))("module"))
     (random-source-make-reals
-     ("args" (("required" |{random-source} [{precision}]|) ("optional") 
("key")))("module"))
+     ("args" (("required" random-source [precision]) ("optional") 
("key")))("module"))
     (random-source-make-u8vectors
-     ("args" (("required" |{random-source}|) ("optional") ("key")))("module"))
+     ("args" (("required" random-source) ("optional") ("key")))("module"))
     (random-source-randomize!
-     ("args" (("required" |{random-source}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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 ("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-char ("args" (("required") ("optional" [port]) ("key")))("module"))
     (read-line
      ("args"
       (("required")
-       ("optional" |[{port} [{separator} [{include-separator?} 
[{max-length}]]]]|)
+       ("optional" [port [separator [include-separator? [max-length]]]])
        ("key")))("module"))
     (read-substring
      ("args"
-      (("required" |{string} {start} {end} [{port} [{need}]]|)
+      (("required" string start end [port [need]])
        ("optional")
        ("key")))("module"))
     (read-subu8vector
      ("args"
-      (("required" |{u8vector} {start} {end} [{port} [{need}]]|)
+      (("required" u8vector start end [port [need]])
        ("optional")
        ("key")))("module"))
-    (read-u8 ("args" (("required") ("optional" |[{port}]|) ("key")))("module"))
+    (read-u8 ("args" (("required") ("optional" [port]) ("key")))("module"))
     (readtable-case-conversion?
-     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
+     ("args" (("required" readtable) ("optional") ("key")))("module"))
     (readtable-eval-allowed?
-     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
+     ("args" (("required" readtable) ("optional") ("key")))("module"))
     (readtable-keywords-allowed?
-     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
+     ("args" (("required" readtable) ("optional") ("key")))("module"))
     (readtable-max-unescaped-char
-     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
+     ("args" (("required" readtable) ("optional") ("key")))("module"))
     (readtable-max-write-length
-     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
+     ("args" (("required" readtable) ("optional") ("key")))("module"))
     (readtable-max-write-level
-     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
+     ("args" (("required" readtable) ("optional") ("key")))("module"))
     (readtable-sharing-allowed?
-     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
+     ("args" (("required" readtable) ("optional") ("key")))("module"))
     (readtable-start-syntax
-     ("args" (("required" |{readtable}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+      (("required" source-path destination-path) ("optional") 
("key")))("module"))
     (repl-display-environment?
-     ("args" (("required" |{display?}|) ("optional") ("key")))("module"))
+     ("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"))
+    (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"))
+     ("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"))
+     ("args" (("required" version) ("optional") ("key")))("module"))
     (service-info
-     ("args" (("required" |{service-name-or-id}|) ("optional") 
("key")))("module"))
+     ("args" (("required" service-name-or-id) ("optional") ("key")))("module"))
     (service-info-aliases
-     ("args" (("required" |{service-info}|) ("optional") ("key")))("module"))
+     ("args" (("required" service-info) ("optional") ("key")))("module"))
     (service-info-name
-     ("args" (("required" |{service-info}|) ("optional") ("key")))("module"))
+     ("args" (("required" service-info) ("optional") ("key")))("module"))
     (service-info-port-number
-     ("args" (("required" |{service-info}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("args" (("required" obj) ("optional") ("key")))("module"))
     (started-thread-exception?
-     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
+     ("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 ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("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"))
+     ("args" (("required" string start end) ("optional") ("key")))("module"))
     (substring-fill!
-     ("args" (("required" |{string} {start} {end} {fill}|) ("optional") 
("key")))("module"))
+     ("args" (("required" string start end fill) ("optional") 
("key")))("module"))
     (substring-move!
      ("args"
-      (("required" |{src-string} {src-start} {src-end} {dst-string} 
{dst-start}|)
+      (("required" src-string src-start src-end dst-string dst-start)
        ("optional")
        ("key")))("module"))
     (subvector
-     ("args" (("required" |{vector} {start} {end}|) ("optional") 
("key")))("module"))
+     ("args" (("required" vector start end) ("optional") ("key")))("module"))
     (subvector-fill!
-     ("args" (("required" |{vector} {start} {end} {fill}|) ("optional") 
("key")))("module"))
+     ("args" (("required" vector start end fill) ("optional") 
("key")))("module"))
     (subvector-move!
      ("args"
-      (("required" |{src-vector} {src-start} {src-end} {dst-vector} 
{dst-start}|)
+      (("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"))
+    (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->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?}]|)
+      (("required" table1 table2 [table2-takes-precedence?])
        ("optional")
        ("key")))("module"))
     (table-merge!
      ("args"
-      (("required" |{table1} {table2} [{table2-takes-precedence?}]|)
+      (("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"))
+     ("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"))
+     ("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"))
+     ("args" (("required" tcp-client-port) ("optional") ("key")))("module"))
     (tcp-server-socket-info
-     ("args" (("required" |{tcp-server-port}|) ("optional") 
("key")))("module"))
+     ("args" (("required" tcp-server-port) ("optional") ("key")))("module"))
     (tcp-service-register!
      ("args"
       (("required"
-        |{port-number-or-address-or-settings} {thunk} [{thread-group}]|)
+        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"))
+     ("args" (("required" obj) ("optional") ("key")))("module"))
+    (thread-base-priority ("args" (("required" thread) ("optional") 
("key")))("module"))
     (thread-init!
      ("args"
-      (("required" |{thread} {thunk} [{name} [{thread-group}]]|)
+      (("required" thread thunk [name [thread-group]])
        ("optional")
        ("key")))("module"))
     (thread-interrupt!
-     ("args" (("required" |{thread} [{thunk}]|) ("optional") 
("key")))("module"))
+     ("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"))
+      (("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"))
+     ("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"))
+     ("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"))
+    (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"))
+    (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"))
+      (("required" address port-number [udp-port]) ("optional") 
("key")))("module"))
     (udp-local-socket-info
-     ("args" (("required" |{udp-port}|) ("optional") ("key")))("module"))
+     ("args" (("required" udp-port) ("optional") ("key")))("module"))
     (udp-read-u8vector
-     ("args" (("required") ("optional" |[{udp-port}]|) ("key")))("module"))
+     ("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"))
+     ("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"))
+     ("args" (("required" obj) ("optional") ("key")))("module"))
     (unbound-serial-number-exception?
-     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
-    (uncaught-exception? ("args" (("required" |{obj}|) ("optional") 
("key")))("module"))
+     ("args" (("required" obj) ("optional") ("key")))("module"))
+    (uncaught-exception? ("args" (("required" obj) ("optional") 
("key")))("module"))
     (uninitialized-thread-exception?
-     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
+     ("args" (("required" obj) ("optional") ("key")))("module"))
     (unknown-keyword-argument-exception?
-     ("args" (("required" |{obj}|) ("optional") ("key")))("module"))
+     ("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"))
+     ("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"))
+    (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"))
+     ("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"))
+     ("args" (("required" handler thunk) ("optional") ("key")))("module"))
     (with-exception-handler
-        ("args" (("required" |{handler} {thunk}|) ("optional") 
("key")))("module"))
+        ("args" (("required" handler thunk) ("optional") ("key")))("module"))
     (with-input-from-file
-        ("args" (("required" |{string} {thunk}|) ("optional") 
("key")))("module"))
+        ("args" (("required" string thunk) ("optional") ("key")))("module"))
     (with-input-from-port
-        ("args" (("required" |{port} {thunk}|) ("optional") 
("key")))("module"))
+        ("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"))
+        ("args" (("required" string thunk) ("optional") ("key")))("module"))
+    (write ("args" (("required" obj [port]) ("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"))))
+     ("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.