From ac37b82d5bc0bc7fc5777b069a7f198622b6cbb7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 2 Sep 2010 00:04:39 +0200 Subject: [PATCH] Fix typos. * module/system/repl/repl.scm (run-repl): Fix variable name: `k', not `key'. * module/texinfo/docbook.scm: Use `(srfi srfi-1)' for `fold'. --- module/system/repl/repl.scm | 2 +- module/texinfo/docbook.scm | 15 ++++++++------- 2 files changed, 9 insertions(+), 8 deletions(-) diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm index 9e364ddc5..8711e1dec 100644 --- a/module/system/repl/repl.scm +++ b/module/system/repl/repl.scm @@ -133,7 +133,7 @@ ((,subr ,msg ,args . ,rest) (display-error #f (current-output-port) subr msg args rest)) (else - (format #t "ERROR: Throw to key `~a' with args `~s'.\n" key args))) + (format #t "ERROR: Throw to key `~a' with args `~s'.\n" k args))) (force-output)))))) ((eof-object? exp) (newline) diff --git a/module/texinfo/docbook.scm b/module/texinfo/docbook.scm index f760e5bd6..72779263a 100644 --- a/module/texinfo/docbook.scm +++ b/module/texinfo/docbook.scm @@ -1,6 +1,6 @@ ;;;; (texinfo docbook) -- translating sdocbook into stexinfo ;;;; -;;;; Copyright (C) 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc. ;;;; Copyright (C) 2007, 2009 Andy Wingo ;;;; ;;;; This library is free software; you can redistribute it and/or @@ -30,12 +30,13 @@ ;;; Code: (define-module (texinfo docbook) - :use-module (sxml fold) - :export (*sdocbook->stexi-rules* - *sdocbook-block-commands* - sdocbook-flatten - filter-empty-elements - replace-titles)) + #:use-module (sxml fold) + #:use-module ((srfi srfi-1) #:select (fold)) + #:export (*sdocbook->stexi-rules* + *sdocbook-block-commands* + sdocbook-flatten + filter-empty-elements + replace-titles)) (define (identity . args) args)