From cc7d394490bb1553e22f5238ce0e5d425ae660fa Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 27 Sep 2019 22:28:34 +0200 Subject: Deprecate passing a non-zero size to make-module * module/ice-9/boot-9.scm (make-module): Issue a deprecation warning if users pass a non-zero size. (nested-define-module!, make-modules-in, beautify-user-module!) (resolve-interface, make-autoload-interface, %cond-expand-table): * module/ice-9/popen.scm (port/pid-table): * module/ice-9/session.scm (make-fold-modules): * module/language/ecmascript/function.scm (*program-wrappers*): * module/scripts/api-diff.scm (read-api-alist-file): * module/srfi/srfi-10.scm (reader-ctors): Update callers. Also remove some make-hash-table sizes. --- module/scripts/api-diff.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'module/scripts/api-diff.scm') diff --git a/module/scripts/api-diff.scm b/module/scripts/api-diff.scm index b2527b9e9..7e04937ba 100644 --- a/module/scripts/api-diff.scm +++ b/module/scripts/api-diff.scm @@ -61,7 +61,7 @@ (meta (assq-ref alist 'meta)) (interface (assq-ref alist 'interface))) (put interface 'meta meta) - (put interface 'groups (let ((ht (make-hash-table 31))) + (put interface 'groups (let ((ht (make-hash-table))) (for-each (lambda (group) (hashq-set! ht group '())) (assq-ref meta 'groups)) -- cgit v1.2.3