From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 12 Nov 2010 21:30:57 +0000 (-0700)
Subject: Fix example code in "Type and range checking".
X-Git-Tag: 20101212-Gtk~14^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b95cfcd069825ac537b3f59abeae8dd9fe2ea078;p=mit-scheme.git

Fix example code in "Type and range checking".
---

diff --git a/doc/user-manual/user.texinfo b/doc/user-manual/user.texinfo
index 5c12808bb..12a526f3e 100644
--- a/doc/user-manual/user.texinfo
+++ b/doc/user-manual/user.texinfo
@@ -2656,7 +2656,7 @@ arithmetic}) and maximum speed.  It's safe use is entirely up to you.
 (declare (usual-integrations) (integrate-operator %increment!))
 (define (%increment! v i)
   (declare (no-type-checks) (no-range-checks))
-  (flo:vector-set! v (flo:+ (flo:vector-ref v i) 1.)))
+  (flo:vector-set! v i (flo:+ (flo:vector-ref v i) 1.)))
 @end group
 @end example