diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 01:07:50 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 01:07:50 +0200 |
commit | 3d2b30f5c8bfb4363eeb676257c738dd596e6191 (patch) | |
tree | 0de106805a542b7ea0e5339355b9eba5711c1fed /module/text | |
parent | Improve opt parsing in test runner. (diff) | |
download | calp-3d2b30f5c8bfb4363eeb676257c738dd596e6191.tar.gz calp-3d2b30f5c8bfb4363eeb676257c738dd596e6191.tar.xz |
Merge mod!:s functionality into set!
Diffstat (limited to '')
-rw-r--r-- | module/text/flow.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/text/flow.scm b/module/text/flow.scm index 3d97bed6..75ef5ccf 100644 --- a/module/text/flow.scm +++ b/module/text/flow.scm @@ -20,7 +20,7 @@ (string-concatenate/shared (merge words (map (lambda (n) (make-string n #\space)) space-list) - (let ((f #t)) (lambda _ (mod/r! f not))))))) + (let ((f #t)) (lambda _ (set/r! f = not))))))) @@ -32,7 +32,7 @@ (let* ((head tail (span (let ((w 0)) (lambda (word) ; Take words until we are above the limit. - (< (mod/r! w = (+ 1 (true-string-length word))) + (< (set/r! w = (+ 1 (true-string-length word))) width))) lst))) (cond ((null? tail) (list (unwords head))) ; Don't justify last line. |