diff options
| -rw-r--r-- | module/util.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/module/util.scm b/module/util.scm index 2bbdc274..a5d3d0dc 100644 --- a/module/util.scm +++ b/module/util.scm @@ -3,7 +3,7 @@ #:use-module ((ice-9 optargs) #:select (define*-public)) #:use-module ((sxml fold) #:select (fold-values)) #:export (destructure-lambda let-multi fold-lists catch-let - for-each-in + for-each-in for define-quick-record mod! sort* sort*! find-min) @@ -36,6 +36,12 @@ (define-syntax-rule (for-each-in lst proc) (for-each proc lst)) +(define-syntax for + (syntax-rules (in) + ((for <var> in <collection> b1 body ...) + (for-each (lambda (<var>) b1 body ...) + <collection>)))) + ;;; Helper macros to make define-quick-record better |