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

Fix deprecated 1-arg `make-module' in tests

Browse source 
* test-suite/tests/modules.test ("circular imports"): Use nullary
  make-module.
This commit is contained in:
Andy Wingo 2019-10-22 14:00:12 +02:00
parent f7b4055b16
commit 6205c2d7d4
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/modules.test
View file

@ -1,6 +1,6 @@
;;;; modules.test --- exercise some of guile's module stuff -*- scheme -*-
;;;; Copyright (C) 2006, 2007, 2009-2011, 2014 Free Software Foundation, Inc.
;;;; Copyright (C) 2006, 2007, 2009-2011, 2014, 2019 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@ -446,7 +446,7 @@
(define from-b 2))
(current-module)))
(define (submodule-binder mod name)
(let ((m (make-module 31)))
(let ((m (make-module)))
(set-module-kind! m 'directory)
(set-module-name! m (append (module-name mod) (list name)))
(module-define-submodule! mod name m)