14 lines
465 B
Scheme
14 lines
465 B
Scheme
;;; Copyright 2022 Andrew Whatson
|
|
|
|
(define-module (prescheme record-discloser)
|
|
#:use-module (srfi srfi-9 gnu)
|
|
#:export (define-record-discloser))
|
|
|
|
(define (define-record-discloser type discloser)
|
|
(set-record-type-printer! type
|
|
(lambda (record port)
|
|
(let* ((vals (discloser record))
|
|
(specs (string-join (make-list (length vals) "~a")))
|
|
(template (string-append "{" specs "}")))
|
|
(apply format port template vals)))))
|