(index ("make-llrb-treetype" 0) ("make-llrb-treetype" 151) ("llrb-treetype?" 367) ("string-empty-binding-set" 891) ("fixnum-empty-binding-set" 891) ("symbol-empty-binding-set" 891) ("empty-binding-set" 891) ("make-binding-set" 1213) ("binding-set-empty?" 1551) ("binding-set-ref/default" 1681) ("binding-set-ref" 1886) ("binding-set-insert" 2372) ("binding-set-delete" 2558) ("binding-set-update" 2730) ("binding-set-cons" 2995) ("binding-set-fold" 3153) ("binding-set-union" 3399) ("make-table" 3575) ("string-make-table" 3716) ("fixnum-make-table" 3716) ("symbol-make-table" 3716) ("table?" 3981) ("table-empty?" 4084) ("table-copy" 4197) ("table-delete!" 4330) ("table-set!" 4477) ("table-ref/default" 4619) ("table-ref" 4831) ("table-update!" 5308) ("table-fold" 5754) ("table-for-each" 5754) ("table-min" 6012) ("table-delete-min!" 6307) ("wrap-one-string-arg" 6538) ("str2sym" 6706))
(def (sig (procedure "(make-llrb-treetype COMPARATOR)" (id make-llrb-treetype))) (p "Define a treetype of keys matching COMPARATOR (from SRFI-128)."))
(def (sig (procedure "(make-llrb-treetype KEY? EQUAL LESS)" (id make-llrb-treetype))) (p "Define a treetype of keys matching the KEY? predicate using EQUAL as equivalence predicate and LESS as ordering predicate."))
(def (sig (procedure "(llrb-treetype? X)" (id llrb-treetype?))) (p "Test X to be an llrb-treetype.") (p "The procedures \"*" (tt "binding-set") "*\" have ananologous definitions specialized to the key type.  Those specialized procedure names are prefixed by the key type (i.e. " (tt "fixnum-") ", " (tt "string-") " and " (tt "symbol-") ").") (p "Procedures prefixed with " (tt "symbol-") ", " (tt "fixnum-") ", " (tt "string-") " are defined for most of the following.  Those are specialized to the respective key type."))
(def (sig (procedure "(string-empty-binding-set)" (id string-empty-binding-set)) (procedure "(fixnum-empty-binding-set)" (id fixnum-empty-binding-set)) (procedure "(symbol-empty-binding-set)" (id symbol-empty-binding-set)) (procedure "(empty-binding-set type)" (id empty-binding-set))) (p "Return an empty binding set."))
(def (sig (procedure "(make-binding-set TYPE . pairs)" (id make-binding-set))) (p "Undocumented (API pending review, i.e. SHOULD become " (tt "mapping") " as in " (link "https://srfi.schemers.org/srfi-146/srfi-146.html#Constructors" "srfi-146") ").") (p "Create an empty set of bindings of TYPE populate it with bindings from `pairs`."))
(def (sig (procedure "(binding-set-empty? set)" (id binding-set-empty?))) (p "Test whether or not the set has no associations."))
(def (sig (procedure "(binding-set-ref/default set key default)" (id binding-set-ref/default))) (p "Returns the value bound to " (tt "key") " in " (tt "set") " or " (tt "default") " value if not found."))
(def (sig (procedure "(binding-set-ref set key [failure] [success])" (id binding-set-ref))) (p "Extracts the value associated to key in \"binding-set\", invokes the procedure " (tt "success") " on it, and returns its result; if " (tt "success") " is not provided, then the value itself is returned. If key is not contained in " (tt "set") " and " (tt "failure") " is supplied, then " (tt "failure") " is invoked on no arguments and its result is returned. Otherwise, it is an error."))
(def (sig (procedure "(binding-set-insert set key value)" (id binding-set-insert))) (p "Extend " (tt "set") " with a binding " (tt "key") "-" (tt "value") ", return the extended set."))
(def (sig (procedure "(binding-set-delete key set)" (id binding-set-delete))) (p "Deletes association from " (tt "set") " with given " (tt "key") ", return the new set."))
(def (sig (procedure "(binding-set-update set key update default)" (id binding-set-update))) (p "Return a set with the binding of " (tt "key") " replaced. " (tt "update") " and " (tt "default") " are procedures with the same semantics and in hash-table-update!."))
(def (sig (procedure "(binding-set-cons key value set)" (id binding-set-cons))) (p "Same as " (tt "binding-set-insert") " with API as alist-cons (srfi-1)."))
(def (sig (procedure "(binding-set-fold proc nil set)" (id binding-set-fold))) (p (tt "Proc") " must be a procedure of three arguments.  It is invoked for each element with the key, value and the accumulated value (nil for the first element)."))
(def (sig (procedure "(binding-set-union inner outer)" (id binding-set-union))) (p "Return a merged set.  All bindings in " (tt "inner") " shadow those in " (tt "outer") "."))
(def (sig (procedure "(make-table type)" (id make-table))) (p "Create a table with an empty set of bindings according to " (tt "type") "."))
(def (sig (procedure "(string-make-table)" (id string-make-table)) (procedure "(fixnum-make-table)" (id fixnum-make-table)) (procedure "(symbol-make-table)" (id symbol-make-table))) (p "Create a table with an empty set of bindings.  Specialized to the key type."))
(def (sig (procedure "(table? x)" (id table?))) (p "Test whether or not the object is a LLRB-table."))
(def (sig (procedure "(table-empty? table)" (id table-empty?))) (p "Test " (tt "table") " to have no bidings."))
(def (sig (procedure "(table-copy table)" (id table-copy))) (p "Create a copy of " (tt "table") " initially sharing all bindings."))
(def (sig (procedure "(table-delete! table key)" (id table-delete!))) (p "Delete the binding for " (tt "key") " from the bindings in the table."))
(def (sig (procedure "(table-set! table key value)" (id table-set!))) (p "Set the " (tt "value") " for " (tt "key") " in " (tt "table") "."))
(def (sig (procedure "(table-ref/default table key default)" (id table-ref/default))) (p "Returns the value associated to key in " (tt "table") ", or the " (tt "default") " when the " (tt "key") " is missing."))
(def (sig (procedure "(table-ref table key [failure] [success])" (id table-ref))) (p "Extracts the value associated to key in " (tt "table") ", invokes the procedure " (tt "success") " on it, and returns its result; if " (tt "success") " is not provided, then the value itself is returned. If key is not contained in " (tt "set") " and " (tt "failure") " is supplied, then " (tt "failure") " is invoked on no arguments and its result is returned. Otherwise, it is an error."))
(def (sig (procedure "(table-update! table key update . default)" (id table-update!))) (p "Note: procedures " (tt "update") " and " (tt "default") " should have no side effects.  They may be called multiple times.  (This can happen if those procedures allow other continuations/threads to update the table before they return.  As a consequence those procedures must especially not update the table, since this will result in an endless loop.)"))
(def (sig (procedure "(table-fold table proc nil)" (id table-fold)) (procedure "(table-for-each table proc)" (id table-for-each))) (p "Intentionally minimum related operations are NOT available for " (tt "symbol") ", since those are supposedly unordered."))
(def (sig (procedure "(table-min table thunk)" (id table-min))) (p "Return two values the minimal key and associated value in table. If the table is empty " (tt "thunk") " is invoked instead.") (p "((FIXME: will be in constant time with little change to the source, at the moment O(log n).))"))
(def (sig (procedure "(table-delete-min! table)" (id table-delete-min!))) (p "Delete the entry with the smalles key and return two values, the key and associated value in table.  In case table is empty returns two false values."))
(def (sig (procedure "(wrap-one-string-arg PROC)" (id wrap-one-string-arg))) (p "Returns a procedure caching PROC.  PROC must accept exactly one argument, a string."))
(def (sig (procedure "(str2sym string)" (id str2sym))) (p "Calls " (tt "string->symbol") " and caches the result.  (Surprisingly this is faster on lookup than " (tt "string->symbol") " itself, at least for large numbers.)"))
