;; -*-theme-d-*-

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

;; Expected results: compilation OK


(define-interface (tests test221)


  (import (standard-library core))


  (define-param-class :my-complex (%number)
    <object> #f #t #t public
    (make (:my-complex %number) (zero %number) (zero %number))
    ((re %number public hidden)
     (im %number public hidden))))
