summaryrefslogtreecommitdiff
path: root/t/t4018/scheme-def-variant
blob: d857a61d64f7e352a2400e970af9721a7f5630b5 (plain)
1
2
3
4
(defmethod {print point} RIGHT
  (lambda (self)
    (with ((point x y) self)
      (printf "{ChangeMe x:~a y:~a}~n" x y))))