From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Feb 2008 06:48:45 +0000 (+0000)
Subject: Fix errors in output for rewriting example.
X-Git-Tag: 20090517-FFI~314
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f9c489e3fd4c9146af9a47d1613a2ce6ab927856;p=mit-scheme.git

Fix errors in output for rewriting example.
---

diff --git a/v7/doc/user-manual/user.texinfo b/v7/doc/user-manual/user.texinfo
index 4e48f3d3b..449a3b7b7 100644
--- a/v7/doc/user-manual/user.texinfo
+++ b/v7/doc/user-manual/user.texinfo
@@ -1,5 +1,5 @@
 \input texinfo @c -*-texinfo-*-
-@comment $Id: user.texinfo,v 1.112 2008/01/30 20:06:12 cph Exp $
+@comment $Id: user.texinfo,v 1.113 2008/02/14 06:48:45 cph Exp $
 @comment %**start of header
 @setfilename mit-scheme-user
 @set EDITION 1.92
@@ -2570,9 +2570,9 @@ Replacements:
 @example
 @group
 (apply @var{f} @var{x} @var{y} @var{z} @var{w})
-   @expansion{} ((access apply ()) @var{f} (cons @var{x} (cons @var{y} (cons @var{z} @var{w}))))
+   @expansion{} ((access apply #f) @var{f} (cons @var{x} (cons @var{y} (cons @var{z} @var{w}))))
 (apply @var{f} @var{x} @var{y})
-   @expansion{} ((access apply ()) @var{f} (cons @var{x} @var{y}))
+   @expansion{} ((access apply #f) @var{f} (cons @var{x} @var{y}))
 (apply @var{f} @var{x}) @expansion{} (apply @var{f} @var{x})
 (apply @var{f}) @expansion{} (apply @var{f})
 (apply) @expansion{} (apply)