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

Deprecate passing a non-zero size to make-module

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2019-09-27 22:28:34 +02:00
parent f62e19bd10
commit cc7d394490
8 changed files with 29 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/scripts/api-diff.scm
View file

@ -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))