civodul pushed a commit to branch master in repository guile. commit f329837fd17e462068260589138054a5c0e586b2 Author: Ludovic Courtès <l...@gnu.org> 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.")