From c0a20410d550295727026a41d31b222a246f3d6a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 20 Apr 2020 02:15:47 +0200 Subject: Add group prodedure. --- module/util.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'module/util.scm') diff --git a/module/util.scm b/module/util.scm index bb1fdcd5..d54ad07b 100644 --- a/module/util.scm +++ b/module/util.scm @@ -501,6 +501,11 @@ (and=>> (and=> value proc) rest ...)])) +(define-public (group list width) + (unless (null? list) + (let* ((row rest (split-at list width))) + (cons row (group rest width))))) + (define-syntax let-env -- cgit v1.2.3