summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2019-10-23 14:45:36 +0200
committerAndy Wingo <wingo@pobox.com>2019-10-23 14:45:36 +0200
commit04615d3c206e5ab612286beffc3e7e5bae1d3af4 (patch)
tree80eb9650b18f8e5ed750a67912840e26bdd31400
parent99a95383cf405ab0284f98adda41ab4989d9a038 (diff)
downloadguile-04615d3c206e5ab612286beffc3e7e5bae1d3af4.tar.gz
Fix one remaining use of make-record-type with string type name
* test-suite/tests/gc.test ("weak-values versus records"): Fix to pass a symbol.
-rw-r--r--test-suite/tests/gc.test2
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/gc.test b/test-suite/tests/gc.test
index 04f353984..1827599a4 100644
--- a/test-suite/tests/gc.test
+++ b/test-suite/tests/gc.test
@@ -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)