From 13b15637461de7415f4832d17c5383b25db6a48b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 23 Jul 2022 20:45:15 +0200 Subject: Introduce key: to define-type. --- tests/test/object.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/test/object.scm b/tests/test/object.scm index 701c45c0..be6108e5 100644 --- a/tests/test/object.scm +++ b/tests/test/object.scm @@ -75,6 +75,6 @@ (test-error "Bad arguments to custom constructor" 'wrong-type-arg (f3 f3-x: 'hello f3-y: 'world)) -;; - printer: +;; - printer: (also, zero fields) (define-type (f4 printer: (lambda (r p) (display "something" p)))) (test-equal "something" (with-output-to-string (lambda () (write (f4))))) -- cgit v1.2.3