[Guile-commits] 05/05: use2dot: Fix incorrect #:autoload binding set leading to unbound variables.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guile.

commit f329837fd17e462068260589138054a5c0e586b2
Author: Ludovic Courtès <address@hidden>
AuthorDate: Mon Jan 20 11:43:28 2020 +0100

    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.
---
 module/scripts/use2dot.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/module/scripts/use2dot.scm b/module/scripts/use2dot.scm
index 975a9c4..b8b7db7 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.")