[bpt/guile.git] / test-suite / vm / t-records.scm

;;; SRFI-9 Records.
;;;

(use-modules (srfi srfi-9))

(define-record-type <stuff>
  (%make-stuff chbouib)
  stuff?
  (chbouib stuff:chbouib stuff:set-chbouib!))

\f
(and (stuff? (%make-stuff 12))
     (= 7 (stuff:chbouib (%make-stuff 7)))
     (not (stuff? 12)))
Commit	Line	Data
b89fc215 LC	1	;;; SRFI-9 Records.
	2	;;;
	3
0658041d	4	(use-modules (srfi srfi-9))
0b5f0e49 LC	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)))
30a700c8	14	(not (stuff? 12)))