summary refs log tree commit diff
path: root/tests/records.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-10-15 23:31:22 +0200
committerLudovic Courtès <ludo@gnu.org>2013-10-15 23:31:22 +0200
commit59fbeb8cae02032a2f8b7966ab52545817f3ed88 (patch)
tree8cc11a9022a0a7c0112a3ab248ba82822a5bd171 /tests/records.scm
parent70a9c7202866df594628750f7c4c242f4fd53e60 (diff)
downloadguix-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/records.scm')
-rw-r--r--tests/records.scm6
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?