blob: 9aa4daac64c4925eb3f917a65e72c8b1104fd5a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
;;; SRFI-9 Records.
;;;
(use-modules (srfi srfi-9))
(define-record-type <stuff>
(%make-stuff chbouib)
stuff?
(chbouib stuff:chbouib stuff:set-chbouib!))
(and (stuff? (%make-stuff 12))
(= 7 (stuff:chbouib (%make-stuff 7)))
(not (stuff? 12)))
|