diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-09 11:47:50 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-09 11:47:50 +0100 |
commit | 9ae3d41443d59c253257f637b03d7ed5854ad675 (patch) | |
tree | adb562fede1258928fe02af9a04f56a0df74cf56 /util.scm | |
parent | Extend let* macro with SRFI-71. (diff) | |
download | calp-9ae3d41443d59c253257f637b03d7ed5854ad675.tar.gz calp-9ae3d41443d59c253257f637b03d7ed5854ad675.tar.xz |
Minor cleanups.
Diffstat (limited to 'util.scm')
-rw-r--r-- | util.scm | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -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))) |