From 9ae3d41443d59c253257f637b03d7ed5854ad675 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 9 Mar 2019 11:47:50 +0100 Subject: Minor cleanups. --- util.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'util.scm') diff --git a/util.scm b/util.scm index 30b87a2e..54addb4c 100644 --- a/util.scm +++ b/util.scm @@ -2,7 +2,8 @@ #:use-module (srfi srfi-1) #:export (destructure-lambda let-multi fold-lists catch-let for-each-in - define-quick-record define-quick-record!) + define-quick-record define-quick-record! + mod!) #:replace (let*) ) @@ -104,3 +105,7 @@ body ...)))] )) + +;; Like set!, but applies a transformer on the already present value. +(define-syntax-rule (mod! field transform-proc) + (set! field (transform-proc field))) -- cgit v1.2.3