mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix a couple of warnings.

Browse source 
* module/scripts/list.scm: Use SRFI-1.
* module/system/repl/error-handling.scm: Use (ice-9 format).
This commit is contained in:
Ludovic Courtès 2012-01-26 00:37:23 +01:00
parent 3a822fff15
commit f5e772b2ba
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/scripts/list.scm
View file

@ -1,6 +1,6 @@
;;; List --- List scripts that can be invoked by guild -*- coding: iso-8859-1 -*- ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -26,6 +26,7 @@
;;; Code: ;;; Code:
(define-module (scripts list) (define-module (scripts list)
#:use-module (srfi srfi-1)
#:export (list-scripts)) #:export (list-scripts))
(define %include-in-guild-list #f) (define %include-in-guild-list #f)

3
module/system/repl/error-handling.scm
View file

@ -1,6 +1,6 @@
;;; Error handling in the REPL ;;; 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 ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -23,6 +23,7 @@
#:use-module (system base pmatch) #:use-module (system base pmatch)
#:use-module (system vm trap-state) #:use-module (system vm trap-state)
#:use-module (system repl debug) #:use-module (system repl debug)
#:use-module (ice-9 format)
#:export (call-with-error-handling #:export (call-with-error-handling
with-error-handling)) with-error-handling))