aboutsummaryrefslogtreecommitdiff
path: root/tests/guile
diff options
context:
space:
mode:
Diffstat (limited to 'tests/guile')
-rw-r--r--tests/guile/de-paul-records-test.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/guile/de-paul-records-test.scm b/tests/guile/de-paul-records-test.scm
index 95d1cb3..7bcc60d 100644
--- a/tests/guile/de-paul-records-test.scm
+++ b/tests/guile/de-paul-records-test.scm
@@ -80,7 +80,9 @@
'(begin
(define %paren-3001.1
(lisp #:<- %paren-3001
- (name #:-> (string-append name ".1"))
+ (name #:->
+ ((const 'test-noop))
+ (string-append name ".1"))
(is-syntactically-scoped? #t)))
(match `(a . ,%paren-3001.1)