mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +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) ((,subr ,msg ,args . ,rest)
(display-error #f (current-output-port) subr msg args rest)) (display-error #f (current-output-port) subr msg args rest))
(else (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)))))) (force-output))))))
((eof-object? exp) ((eof-object? exp)
(newline) (newline)

7
module/texinfo/docbook.scm
View file

@ -1,6 +1,6 @@
;;;; (texinfo docbook) -- translating sdocbook into stexinfo ;;;; (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> ;;;; Copyright (C) 2007, 2009 Andy Wingo <wingo at pobox dot com>
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
@ -30,8 +30,9 @@
;;; Code: ;;; Code:
(define-module (texinfo docbook) (define-module (texinfo docbook)
:use-module (sxml fold) #:use-module (sxml fold)
:export (*sdocbook->stexi-rules* #:use-module ((srfi srfi-1) #:select (fold))
#:export (*sdocbook->stexi-rules*
*sdocbook-block-commands* *sdocbook-block-commands*
sdocbook-flatten sdocbook-flatten
filter-empty-elements filter-empty-elements