1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;; -*-theme-d-*-
;; Copyright (C) 2016, 2024 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-foreign-prim-class <raw-hash-table>
(member-pred hash-table?))
(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)))
|
