guile/test-suite/vm/t-records.scm at wip-threaded-http-server - mirror/guile - git.caem.dev

mirror/guile

mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00

Ludovic Courtès aa592f96b0 Rename the testsuite' directory to test-suite/vm'.

* testsuite: Move to...
* test-suite/vm: ... here.

* Makefile.am (SUBDIRS): Remove `testsuite'.

* configure.ac: Output `test-suite/vm/Makefile' instead of
  `testsuite/Makefile'.

* test-suite/Makefile.am (SUBDIRS): Add `vm'.

2010-05-26 23:41:24 +02:00

14 lines

262 B

Scheme

Raw Permalink Blame History

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

 ;;; 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)))