From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 31 Oct 1995 00:51:52 +0000 (+0000)
Subject: Improved `largest fixnum' code.
X-Git-Tag: 20090517-FFI~5814
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5b3c702822de7787e1dd7d9ddfe7d2d1af34b733;p=mit-scheme.git

Improved `largest fixnum' code.
---

diff --git a/v7/doc/ref-manual/scheme.texinfo b/v7/doc/ref-manual/scheme.texinfo
index 24456e58c..3215c8fe8 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.53 1995/07/12 21:10:07 adams Exp $
+@comment $Id: scheme.texinfo,v 1.54 1995/10/31 00:51:52 adams Exp $
 @comment %**start of header (This is for running Texinfo on a region.)
 @setfilename scheme
 @settitle MIT Scheme Reference
@@ -4477,11 +4477,10 @@ Here is an expression that determines the largest fixnum:
 
 @example
 @group
-(let loop ((n 0))
-  (let ((m (+ n 1)))
-    (if (fix:fixnum? m)
-        (loop m)
-        n)))
+(let loop ((n 1))
+  (if (fix:fixnum? n)
+      (loop (* n 2))
+      (- n 1)))
 @end group
 @end example