diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-01-20 11:43:28 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-01-20 11:43:28 +0100 |
commit | f329837fd17e462068260589138054a5c0e586b2 (patch) | |
tree | cacfc7f66625a33354196c6971fcd3ee725a552f /module/scripts | |
parent | 7b909472941faceaca701276eb019e354061b616 (diff) | |
download | guile-f329837fd17e462068260589138054a5c0e586b2.tar.gz |
use2dot: Fix incorrect #:autoload binding set leading to unbound variables.
* 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.
Diffstat (limited to 'module/scripts')
-rw-r--r-- | module/scripts/use2dot.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/module/scripts/use2dot.scm b/module/scripts/use2dot.scm index 975a9c4a4..b8b7db7eb 100644 --- a/module/scripts/use2dot.scm +++ b/module/scripts/use2dot.scm @@ -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.") |