From f5e772b2bac149c854b9b003e7a96632af7f8760 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Jan 2012 00:37:23 +0100 Subject: [PATCH] Fix a couple of warnings. * module/scripts/list.scm: Use SRFI-1. * module/system/repl/error-handling.scm: Use (ice-9 format). --- module/scripts/list.scm | 3 ++- 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))