diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-01-26 00:37:23 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-01-26 00:37:23 +0100 |
commit | f5e772b2bac149c854b9b003e7a96632af7f8760 (patch) | |
tree | 2553de4d9267572c64a113bfca08974fc59a7f38 | |
parent | 3a822fff1565d1b0f5802925e3c169355143ba3b (diff) | |
download | guile-f5e772b2bac149c854b9b003e7a96632af7f8760.tar.gz |
Fix a couple of warnings.
* module/scripts/list.scm: Use SRFI-1.
* module/system/repl/error-handling.scm: Use (ice-9 format).
-rw-r--r-- | module/scripts/list.scm | 3 | ||||
-rw-r--r-- | module/system/repl/error-handling.scm | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/module/scripts/list.scm b/module/scripts/list.scm index 0f1d715dd..66116ce5b 100644 --- a/module/scripts/list.scm +++ b/module/scripts/list.scm @@ -1,6 +1,6 @@ ;;; List --- List scripts that can be invoked by guild -*- coding: iso-8859-1 -*- -;;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. +;;;; Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -26,6 +26,7 @@ ;;; Code: (define-module (scripts list) + #:use-module (srfi srfi-1) #:export (list-scripts)) (define %include-in-guild-list #f) diff --git a/module/system/repl/error-handling.scm b/module/system/repl/error-handling.scm index 2a585aaff..0e31eb941 100644 --- a/module/system/repl/error-handling.scm +++ b/module/system/repl/error-handling.scm @@ -1,6 +1,6 @@ ;;; Error handling in the REPL -;; Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -23,6 +23,7 @@ #:use-module (system base pmatch) #:use-module (system vm trap-state) #:use-module (system repl debug) + #:use-module (ice-9 format) #:export (call-with-error-handling with-error-handling)) |