summaryrefslogtreecommitdiff
path: root/test-suite/vm/t-records.scm
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)))