diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-10-15 23:31:22 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-10-15 23:31:22 +0200 |
| commit | 59fbeb8cae02032a2f8b7966ab52545817f3ed88 (patch) | |
| tree | 8cc11a9022a0a7c0112a3ab248ba82822a5bd171 /tests | |
| parent | 70a9c7202866df594628750f7c4c242f4fd53e60 (diff) | |
| download | patches-59fbeb8cae02032a2f8b7966ab52545817f3ed88.tar patches-59fbeb8cae02032a2f8b7966ab52545817f3ed88.tar.gz | |
records: define-record-type*: Field bindings are bound with 'let*'.
* guix/records.scm (define-record-type*): Wrap field bindings in a
'let*', not in a 'letrec*', which turned out to be pointlessly
inconvenient.
* tests/records.scm: Adjust test names accordingly.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/records.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/records.scm b/tests/records.scm index 851ff7bdef..15709ac326 100644 --- a/tests/records.scm +++ b/tests/records.scm @@ -36,9 +36,9 @@ (match (foo (bar 1)) (($ <foo> 1 42) #t))))) -(test-assert "define-record-type* with letrec* behavior" +(test-assert "define-record-type* with let* behavior" ;; Make sure field initializers can refer to each other as if they were in - ;; a `letrec*'. + ;; a 'let*'. (begin (define-record-type* <bar> bar make-bar foo? @@ -69,7 +69,7 @@ (equal? c d) (match e (($ <foo> 42 77) #t)))))) -(test-assert "define-record-type* & inherit & letrec* behavior" +(test-assert "define-record-type* & inherit & let* behavior" (begin (define-record-type* <foo> foo make-foo foo? |