diff options
Diffstat (limited to 'test-suite/vm/t-records.scm')
-rw-r--r-- | test-suite/vm/t-records.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/vm/t-records.scm b/test-suite/vm/t-records.scm new file mode 100644 index 000000000..9aa4daac6 --- /dev/null +++ b/test-suite/vm/t-records.scm @@ -0,0 +1,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))) |