;; -*-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 test106)

  (define my-integer->string
    (prim-proc number->string (<integer>) <string> pure))

  (add-method my-method
    (lambda (((obj <object>)) <object> pure)
      1)))
