diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-23 20:45:15 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-23 20:47:40 +0200 |
commit | 13b15637461de7415f4832d17c5383b25db6a48b (patch) | |
tree | 26b2fe8c4908123d4b9f5ea968ba78c9a3df275b /tests/test/object.scm | |
parent | General cleanup in preprocessor. (diff) | |
download | calp-13b15637461de7415f4832d17c5383b25db6a48b.tar.gz calp-13b15637461de7415f4832d17c5383b25db6a48b.tar.xz |
Introduce key: to define-type.
Diffstat (limited to 'tests/test/object.scm')
-rw-r--r-- | tests/test/object.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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))))) |