From 59465c70114bc55fde2401032d21c10151e0cf98 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 30 Dec 2019 02:06:29 +0100 Subject: Whitespace fixup. --- module/util.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'module/util.scm') 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)) -- cgit v1.2.3