From 7c23b2d0fcee30f15dbf27cf26ef280a6dde398e Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Sat, 16 Dec 2023 23:15:21 +0100 Subject: Allow using multiple expressions in field update form. --- tests/guile/de-paul-records-test.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tests/guile') 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) -- cgit v1.2.3