;; -*-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-interface (tests test99)


  (import (standard-library core))


  (define-class <my-record> <object> #t #f #f module ()
    ((name <string> public public)
     (address <string> public public)))


  (define-param-class :my-stack (%type) <object> #t #f #f module ()
    ((contents (:uniform-list %type) module module null)))


  (declare make-my-record (:procedure (<string> <string>) <my-record> pure))


  (declare make-my-stack (:param-proc (%type) (%type) (:my-stack %type) pure)))
