mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

frisk: Fix incorrect #:autoload binding set leading to unbound variables.

Browse source 
* module/scripts/frisk.scm: Load (ice-9 getopt-long) with #:use-module
rather than #:autoload.  With the previous #:autoload spec, 'option-ref'
would be unbound due to the new autoload semantics.
This commit is contained in:
Ludovic Courtès 2020-01-20 11:41:38 +01:00
parent 5f1ed870ea
commit 7b90947294
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
module/scripts/frisk.scm
View file

@ -1,6 +1,6 @@
;;; frisk --- Grok the module interfaces of a body of files ;;; frisk --- Grok the module interfaces of a body of files
;; Copyright (C) 2002, 2006, 2010, 2011 Free Software Foundation, Inc. ;; Copyright (C) 2002, 2006, 2010, 2011, 2020 Free Software Foundation, Inc.
;; ;;
;; This program is free software; you can redistribute it and/or ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License ;; modify it under the terms of the GNU Lesser General Public License
@ -96,12 +96,12 @@
;;; Code: ;;; Code:
(define-module (scripts frisk) (define-module (scripts frisk)
:autoload (ice-9 getopt-long) (getopt-long) #:use-module (ice-9 getopt-long)
:use-module ((srfi srfi-1) :select (filter remove)) #:use-module ((srfi srfi-1) :select (filter remove))
:export (frisk #:export (frisk
make-frisker make-frisker
mod-up-ls mod-down-ls mod-int? mod-up-ls mod-down-ls mod-int?
edge-type edge-up edge-down)) edge-type edge-up edge-down))
(define %include-in-guild-list #f) (define %include-in-guild-list #f)
(define %summary "Show dependency information for a module.") (define %summary "Show dependency information for a module.")