diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-03 22:25:59 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-03 22:25:59 +0200 |
commit | e755f9a9336e91d05f01b899e88c28f5e74da08c (patch) | |
tree | 4e6cf8f261931b2497f5c012e3eae0b8b45ab866 | |
parent | Add tests to makefile. (diff) | |
download | calp-e755f9a9336e91d05f01b899e88c28f5e74da08c.tar.gz calp-e755f9a9336e91d05f01b899e88c28f5e74da08c.tar.xz |
Minor util update regarding quick-records.
Diffstat (limited to '')
-rw-r--r-- | module/util.scm | 6 |
1 files changed, 4 insertions, 2 deletions
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) '())) |