diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:06:29 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:08:19 +0100 |
| commit | 59465c70114bc55fde2401032d21c10151e0cf98 (patch) | |
| tree | 7dedf91902ef19a6567aa64feae473ef2cff2417 /module/util.scm | |
| parent | HTML day highlight now only in current month. (diff) | |
| download | calp-59465c70114bc55fde2401032d21c10151e0cf98.tar.gz calp-59465c70114bc55fde2401032d21c10151e0cf98.tar.xz | |
Whitespace fixup.
Diffstat (limited to 'module/util.scm')
| -rw-r--r-- | module/util.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/module/util.scm b/module/util.scm index 5f5eeb83..ca74470e 100644 --- a/module/util.scm +++ b/module/util.scm @@ -96,13 +96,13 @@ (define (%define-quick-record internal-define bang? name fields) (let ((symb (gensym))) `((,internal-define ,(class-name name) - (,(constructor name) ,@fields) - ,(pred name) - ,@(map (lambda (f) `(,f ,(getter f symb) ,(setter f symb bang?))) - fields)) - ,@(map (lambda (f) `(define ,f (make-procedure-with-setter - ,(getter f symb) ,(setter f symb bang?)))) - fields)))) + (,(constructor name) ,@fields) + ,(pred name) + ,@(map (lambda (f) `(,f ,(getter f symb) ,(setter f symb bang?))) + fields)) + ,@(map (lambda (f) `(define ,f (make-procedure-with-setter + ,(getter f symb) ,(setter f symb bang?)))) + fields)))) ;;; Creates srfi-9 define{-immutable,}-record-type declations. ;;; Also creates srfi-17 accessor ((set! (access field) value)) |