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

Fix typos.

Browse source 
* module/system/repl/repl.scm (run-repl): Fix variable name: `k', not
  `key'.

* module/texinfo/docbook.scm: Use `(srfi srfi-1)' for `fold'.
This commit is contained in:
Ludovic Courtès 2010-09-02 00:04:39 +02:00
parent dcde43869a
commit ac37b82d5b
2 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/repl/repl.scm
View file

@ -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)

15
module/texinfo/docbook.scm
View file

@ -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 <wingo at pobox dot com>
;;;;
;;;; 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)