testsuite/t-records.scm

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