t/t4018/scheme-def-variant - git - Git at Google


            
            (defmethod {print point} RIGHT

            
              (lambda (self)

            
                (with ((point x y) self)

            
                  (printf "{ChangeMe x:~a y:~a}~n" x y))))
	(defmethod {print point} RIGHT
	(lambda (self)
	(with ((point x y) self)
	(printf "{ChangeMe x:~a y:~a}~n" x y))))