diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-05-01 21:09:24 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-05-01 21:09:24 +0200 |
commit | 547fa99389439b62fca04243e62560bfcbafb0b4 (patch) | |
tree | 4458cff55054677ac7bed629998f59ec76dfddf0 /src/guile_interface.scm.c | |
parent | Add options to --statprof. (diff) | |
download | calp-547fa99389439b62fca04243e62560bfcbafb0b4.tar.gz calp-547fa99389439b62fca04243e62560bfcbafb0b4.tar.xz |
Change function for creating hashtables.
Diffstat (limited to 'src/guile_interface.scm.c')
-rw-r--r-- | src/guile_interface.scm.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/guile_interface.scm.c b/src/guile_interface.scm.c index 4d70c127..20c413df 100644 --- a/src/guile_interface.scm.c +++ b/src/guile_interface.scm.c @@ -74,7 +74,7 @@ SCM_DEFINE (vcomponent_get_attribute, "%vcomponent-get-attribute", 2, 0, 0, // TODO why is it an error to unprotect the object here? // scm_from_strbuf should already have protected it... // scm_gc_unprotect_object(v->key.scm); - SCM htable = SCM_MAKE_HASH_TABLE(); + SCM htable = scm_make_hash_table (scm_from_ulong(32)); val = scm_cons(val, htable); v->key.scm = val; scm_gc_protect_object(v->key.scm); |