From e755f9a9336e91d05f01b899e88c28f5e74da08c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 3 Apr 2019 22:25:59 +0200 Subject: Minor util update regarding quick-records. --- module/util.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'module/util.scm') diff --git a/module/util.scm b/module/util.scm index 6770460e..0e8ee7ee 100644 --- a/module/util.scm +++ b/module/util.scm @@ -3,7 +3,7 @@ #:use-module ((sxml fold) #:select (fold-values)) #:export (destructure-lambda let-multi fold-lists catch-let for-each-in - define-quick-record define-quick-record! + define-quick-record mod! sort* sort*! find-min) #:replace (let*) @@ -35,6 +35,7 @@ (define-syntax-rule (for-each-in lst proc) (for-each proc lst)) + ;;; Helper macros to make define-quick-record better @@ -60,7 +61,8 @@ ;;; Creates srfi-9 define{-immutable,}-record-type declations. ;;; Also creates srfi-17 accessor ((set! (access field) value)) -;; (define (define-quick-record-templated define-proc name field)) +;;; TODO allow extra properties to be sent to this macro, +;;; such as @var{:muttable} or @var{:immutable} (define-macro (define-quick-record name . fields) (let ((public-fields (or (assoc-ref fields #:public) '())) -- cgit v1.2.3