(index ("simple-cells" 0) ("cell" 201) ("cell?" 580) ("cell-of?" 651))
(def (sig (procedure "(simple-cells sym ..)" (id simple-cells))) (p "Documentation procedure. Without argument, returns the list of exported symbols, with argument the documentation of that symbol."))
(def (sig (procedure "(cell var . tests)" (id cell))) (p "Constructor. Creates a cell as a procedure of zero or one argument, initialising its content to var provided all tests succedd. Without argument returns two values, the content of the cell and the list of test predicates. With argument, replaces the cell's content with that very argument, provided all tests succead."))
(def (sig (procedure "(cell? xpr)" (id cell?))) (p "Type predicate."))
(def (sig (procedure "((cell-of? ok?) xpr)" (id cell-of?))) (p "is xpr a cell which passes the ok? test?"))
