summaryrefslogtreecommitdiff
path: root/t/t4018/scheme-def-variant
diff options
context:
space:
mode:
Diffstat (limited to 't/t4018/scheme-def-variant')
-rw-r--r--t/t4018/scheme-def-variant4
1 files changed, 4 insertions, 0 deletions
diff --git a/t/t4018/scheme-def-variant b/t/t4018/scheme-def-variant
new file mode 100644
index 0000000000..d857a61d64
--- /dev/null
+++ b/t/t4018/scheme-def-variant
@@ -0,0 +1,4 @@
+(defmethod {print point} RIGHT
+ (lambda (self)
+ (with ((point x y) self)
+ (printf "{ChangeMe x:~a y:~a}~n" x y))))