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


  (define-simple-proc make-my-record
      (((name <string>) (address <string>))
       <my-record> pure)
    (make <my-record> name address))


  (define-param-proc make-my-stack (%type)
		     (((element %type)) (:my-stack %type) force-pure)
    (let ((stack (make (:my-stack %type))))
      (field-set! stack 'contents (list element))
      stack)))
