From 6dfb5c9b163ac7f892738ffaffc9e15b5bc55731 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Feb 1996 22:30:52 +0000
Subject: [PATCH] Fix typo and update revision numbers.

---
 v7/doc/ref-manual/scheme.texinfo | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/doc/ref-manual/scheme.texinfo b/v7/doc/ref-manual/scheme.texinfo
index ebd252015..0e64d9e0a 100644
--- a/v7/doc/ref-manual/scheme.texinfo
+++ b/v7/doc/ref-manual/scheme.texinfo
@@ -2,7 +2,7 @@
 @iftex
 @finalout
 @end iftex
-@comment $Id: scheme.texinfo,v 1.55 1995/11/07 04:45:28 adams Exp $
+@comment $Id: scheme.texinfo,v 1.56 1996/02/15 22:30:52 cph Exp $
 @comment %**start of header (This is for running Texinfo on a region.)
 @setfilename scheme
 @settitle MIT Scheme Reference
@@ -69,7 +69,7 @@
 @ifinfo
 This file documents the MIT Scheme system.
 
-Copyright @copyright{} 1988-95 Massachusetts Institute of Technology
+Copyright @copyright{} 1988-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and Computer
@@ -108,9 +108,9 @@ literature without prior written consent from MIT in each case.
 
 @titlepage
 @title{MIT Scheme Reference Manual}
-@subtitle Edition 1.52 beta
+@subtitle Edition 1.55 beta
 @subtitle for Scheme Release 7.4
-@subtitle 30 May 1995
+@subtitle 15 Feb 1996
 @author by Chris Hanson
 @author the MIT Scheme Team
 @author and a cast of thousands
@@ -118,7 +118,7 @@ literature without prior written consent from MIT in each case.
 @page
 
 @vskip 0pt plus 1filll
-Copyright @copyright{} 1988-95 Massachusetts Institute of Technology
+Copyright @copyright{} 1988-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and Computer
@@ -5951,7 +5951,7 @@ to @var{pattern}; or @code{#f} if @var{string} does not contain @var{pattern}.
 (substring? "rat" "pirate")             @result{}  2
 (substring? "rat" "outrage")            @result{}  #f
 (substring? "" any-string)              @result{}  0
-(if (substring "moon" text)
+(if (substring? "moon" text)
     (process-lunar text)
     'no-moon)
 @end group
-- 
2.25.1