Remove unused top-level variables.

[bpt/guile.git] / module / texinfo.scm

diff --git a/module/texinfo.scm b/module/texinfo.scm
index d792cfa..0b8285e 100644 (file)
--- a/module/texinfo.scm
+++ b/module/texinfo.scm
@@ -1,6 +1,6 @@
 ;;;; (texinfo) -- parsing of texinfo into SXML
 ;;;;
-;;;;   Copyright (C) 2009  Free Software Foundation, Inc.
+;;;;   Copyright (C) 2009, 2010  Free Software Foundation, Inc.
 ;;;;    Copyright (C) 2004, 2009 Andy Wingo <wingo at pobox dot com>
 ;;;;    Copyright (C) 2001,2002 Oleg Kiselyov <oleg at pobox dot com>
 ;;;;
@@ -427,8 +427,6 @@ Examples:
             (read-char port))          ; skip \n that follows \r
         line)))
 
-(define ascii->char integer->char)
-
 (define (skip-whitespace port)
   (skip-while '(#\space #\tab #\return #\newline) port))