Fix example code in "Type and range checking".

diff --git a/doc/user-manual/user.texinfo b/doc/user-manual/user.texinfo
index 5c12808bbd5b628f0dafc44a9dcee300fdfdef67..12a526f3e89e65ed80c1e4929e0edda14baba7b0 100644 (file)
--- 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