mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

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

Browse source 
* module/scripts/use2dot.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:43:28 +01:00
parent 7b90947294
commit f329837fd1
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/scripts/use2dot.scm
View file

@ -1,6 +1,6 @@
;;; use2dot --- Display module dependencies as a DOT specification
;; Copyright (C) 2001, 2006, 2011 Free Software Foundation, Inc.
;; Copyright (C) 2001, 2006, 2011, 2020 Free Software Foundation, Inc.
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
@ -47,11 +47,11 @@
;;; Code:
(define-module (scripts use2dot)
:autoload (ice-9 getopt-long) (getopt-long)
:use-module ((srfi srfi-13) :select (string-join))
:use-module ((scripts frisk)
:select (make-frisker edge-type edge-up edge-down))
:export (use2dot))
#:use-module (ice-9 getopt-long)
#:use-module ((srfi srfi-13) #:select (string-join))
#:use-module ((scripts frisk)
#:select (make-frisker edge-type edge-up edge-down))
#:export (use2dot))
(define %summary "Print a module's dependencies in graphviz format.")