mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 04:15:36 +02:00
Code Activity

Change record type "flags" field to "properties"

Browse source 
* module/ice-9/boot-9.scm (record-type-properties): Rename from
  record-type-flags.
  (record-type-final?): New accessor.
  (make-record-type):
  (define-record-type):
* test-suite/tests/records.test ("records"): Adapt.
This commit is contained in:
Andy Wingo 2019-10-27 20:03:51 +01:00
parent 04615d3c20
commit 958aa8b313
2 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test-suite/tests/records.test
View file

@ -95,12 +95,9 @@
(define b (make-record-type 'b '(u v) #:final? #f))
(define c (make-record-type 'c '(w x) #:parent b))
(pass-if "default final: a"
(and (memq 'final (record-type-flags a)) #t))
(pass-if "default final: b"
(not (memq 'final (record-type-flags b))))
(pass-if "default final: c"
(and (memq 'final (record-type-flags c)) #t))
(pass-if (record-type-final? a))
(pass-if (not (record-type-final? b)))
(pass-if (record-type-final? c))
(pass-if-exception "subtyping final: a" '(misc-error . "final")
(make-record-type 'd '(y x) #:parent a))