;; -*-theme-d-*-

;; Copyright (C) 2008-2013 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: compilation OK


(define-body (tests test108)

  (add-method my-method
    (lambda (((b <b>)) <c> pure)
      (let ((v (my-integer->string (field-ref b 'y))))
	(make <c> v)))))
