diff options
| author | W. Kosior <koszko@koszko.org> | 2025-02-07 14:05:48 +0100 |
|---|---|---|
| committer | W. Kosior <koszko@koszko.org> | 2025-02-07 19:58:35 +0100 |
| commit | 4b667c190098d9dbcdc676dfc39b6233a98e7a53 (patch) | |
| tree | fa63a3c909108d346f5519a7f4e098c4456c5b2f | |
| parent | dbb2a98e2a63a34ffe1e416835d9e6e7f137a214 (diff) | |
| download | de-paul-records-4b667c190098d9dbcdc676dfc39b6233a98e7a53.tar.gz de-paul-records-4b667c190098d9dbcdc676dfc39b6233a98e7a53.zip | |
Export `define-immutable-record-type*' under extra alias `deftype'.
| -rw-r--r-- | src/guile/de-paul-records.scm | 3 | ||||
| -rw-r--r-- | tests/guile/de-paul-records-test.scm | 9 |
2 files changed, 7 insertions, 5 deletions
diff --git a/src/guile/de-paul-records.scm b/src/guile/de-paul-records.scm index f45e6b4..102ff87 100644 --- a/src/guile/de-paul-records.scm +++ b/src/guile/de-paul-records.scm @@ -20,7 +20,8 @@ (match-let*-override . match-let*) (match-letrec-override . match-letrec) - define-immutable-record-type*)) + define-immutable-record-type* + (define-immutable-record-type* . deftype))) (eval-when (compile load eval) (define (get-first-identifier list-of-identifiers-and-other) diff --git a/tests/guile/de-paul-records-test.scm b/tests/guile/de-paul-records-test.scm index 7bcc60d..a4e82a1 100644 --- a/tests/guile/de-paul-records-test.scm +++ b/tests/guile/de-paul-records-test.scm @@ -19,7 +19,8 @@ (tu:test-assert (or (eval '(begin (define-module (de-paul-records-test lisp) - #:use-module ((de-paul-records))) + #:use-module ((de-paul-records) #:select + (define-immutable-record-type*))) (define-immutable-record-type* lisp (name) @@ -218,10 +219,10 @@ (tu:test-assert (or (eval '(begin (define-module (de-paul-records-test rsa-secret-key-2) - #:use-module ((de-paul-records))) + ;; This time use our alias to `define-immutable-record-type*'. + #:use-module ((de-paul-records) #:select (deftype))) - (define-immutable-record-type* rsa-secret-key - (bytes))) + (deftype rsa-secret-key (bytes))) (make-env)) #t)) |