From b95cfcd069825ac537b3f59abeae8dd9fe2ea078 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 12 Nov 2010 14:30:57 -0700 Subject: [PATCH] Fix example code in "Type and range checking". --- doc/user-manual/user.texinfo | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.25.1