diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-24 19:58:48 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-24 19:58:48 +0200 |
commit | db542a9857944446cf7e0db4497825e8f51f1822 (patch) | |
tree | 9637fd0e1d46ed09c0d206d39b6d187edd32ae35 /module | |
parent | Flip arrow. (diff) | |
download | calp-db542a9857944446cf7e0db4497825e8f51f1822.tar.gz calp-db542a9857944446cf7e0db4497825e8f51f1822.tar.xz |
.
Diffstat (limited to 'module')
-rw-r--r-- | module/util.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/util.scm b/module/util.scm index 755afccf..c1eaf6bf 100644 --- a/module/util.scm +++ b/module/util.scm @@ -506,7 +506,8 @@ (let* ((row rest (split-at list width))) (cons row (group rest width))))) -;; repeatedly apply proc to base unitl @var{until} is satisfied. +;; repeatedly apply @var{proc} to @var{base} +;; unitl @var{until} is satisfied. ;; (a → a), (a → bool), a → a (define-public (iterate proc until base) (let loop ((o base)) |