;; -*-theme-d-*-

;; Copyright (C) 2016 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 test391)

  (import (standard-library core))

  (define-prim-class <raw-hash-table>
    #f #f #f ()
    hash-table? eqv? eqv? eqv?)

  (define hash-function (:procedure (<object> <integer>) <integer> pure))

  (define-param-logical-type :hash-proc (%key)
    (:procedure (%key <integer>) <integer> pure))

  (define-param-logical-type :assoc-proc (%key %value)
    (:procedure (%key (:alist %key %value)) (:maybe (:pair %key %value))
		pure)))

