testsuite/t-records.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

;;; 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))
     (not (false-if-exception (%make-stuff))))