mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix one remaining use of make-record-type with string type name

Browse source 
* test-suite/tests/gc.test ("weak-values versus records"): Fix to pass a
  symbol.
This commit is contained in:
Andy Wingo 2019-10-23 14:45:36 +02:00
parent 99a95383cf
commit 04615d3c20
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/tests/gc.test
View file

@ -46,7 +46,7 @@
;; chance gc will mark something used when it isn't, so we allow x to be a
;; record too.
(pass-if "weak-values versus records"
(let ((rec-type (make-record-type "foo" '()))
(let ((rec-type (make-record-type 'foo '()))
(h (make-weak-value-hash-table 61)))
(hash-set! h "foo" ((record-constructor rec-type)))
(gc)