diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-20 22:08:31 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-20 22:08:31 +0100 |
commit | b2fc6c04a77139d3936eec72a8312b455ecf182e (patch) | |
tree | 9ddd931c1e680ccbed21f83bb773bc8b86e9b7fa /module/c | |
parent | Remove procedure map-each (diff) | |
download | calp-b2fc6c04a77139d3936eec72a8312b455ecf182e.tar.gz calp-b2fc6c04a77139d3936eec72a8312b455ecf182e.tar.xz |
Documentation updates for util.
Diffstat (limited to '')
-rw-r--r-- | module/calp/util.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/module/calp/util.scm b/module/calp/util.scm index 044e4a95..96ca2f01 100644 --- a/module/calp/util.scm +++ b/module/calp/util.scm @@ -362,7 +362,7 @@ ;; NOTE changing this list to cons allows the output to work with assq-merge. (hash-map->list list h))) -;; (group-by '(0 1 2 3 4 2 5 6) 2) +;; (split-by '(0 1 2 3 4 2 5 6) 2) ;; ⇒ ((0 1) (3 4) (5 6)) (define-public (split-by list item) (let loop ((done '()) @@ -533,6 +533,10 @@ (define-public (->quoted-string any) (with-output-to-string (lambda () (write any)))) + + + +;; TODO shouldn't this use `file-name-separator-string'? (define-public (path-append . strings) (fold (lambda (s done) (string-append @@ -551,6 +555,7 @@ +;;; TODO shouldn't this use dynamic-wind? To handle non-local exits? (define-syntax let-env (syntax-rules () [(_ ((name value) ...) |