;; -*-theme-*-

;; Copyright (C) 2015  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 test365)


  (import (standard-library core)
	  (standard-library singleton))

  (define-param-class :assoc-list (%key %value) <object> #t #f #f module ()
    ((l-contents (:uniform-list (:pair %key (:singleton %value)))
		 module module)))

  (declare make-assoc-list
	   (:param-proc (%key %value) ()
			(:assoc-list %key %value) pure))

  (declare-static-method gen-assoc
			 (:param-proc (%key %value)
				      ((:assoc-list %key %value) %key)
				      (:maybe %value)
				      pure))

  (declare-static-method gen-assoc-set!
			 (:param-proc (%key %value)
				      ((:assoc-list %key %value) %key %value)
				      <none>
				      nonpure)))
