diff options
author | Andy Wingo <wingo@pobox.com> | 2019-10-23 14:45:36 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2019-10-23 14:45:36 +0200 |
commit | 04615d3c206e5ab612286beffc3e7e5bae1d3af4 (patch) | |
tree | 80eb9650b18f8e5ed750a67912840e26bdd31400 | |
parent | 99a95383cf405ab0284f98adda41ab4989d9a038 (diff) | |
download | guile-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.test | 2 |
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) |