mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
0658041d11
* testsuite/t-match.scm: * testsuite/t-records.scm: While the attempt to redefine use-syntax as being "use during compilation" was cute, it does not reflect the historical usage of use-syntax, nor does it correspond to existing code that includes other modules and uses them during compilation. So use-syntax has been replaced with use-modules. The test suites now pass. In the future, compilation phases should be done on whole modules, I think; r5rs-style computation does not have phases.
15 lines
308 B
Scheme
15 lines
308 B
Scheme
;;; 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))
|
||
(not (false-if-exception (%make-stuff))))
|