From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 27 Nov 1989 21:57:01 +0000 (+0000)
Subject: Fix a bug in bignum printing.
X-Git-Tag: 20090517-FFI~11662
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5c4867c3a73603a7fe0945091b2b8ec8625b7b5d;p=mit-scheme.git

Fix a bug in bignum printing.
---

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index 2449c2063..ca21a642e 100644
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.41 1989/10/28 15:37:45 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.42 1989/11/27 21:57:01 jinx Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -1196,7 +1196,7 @@ print_external_objects(from, count)
 	break;
 
       case TC_BIG_FIXNUM:
-	print_a_bignum (*from++);
+	print_a_bignum (++from);
 	from += (1 + OBJECT_DATUM (*from));
 	break;
 
diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index 7265dcfdd..0429e2188 100644
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.41 1989/10/28 15:37:45 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.42 1989/11/27 21:57:01 jinx Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -1196,7 +1196,7 @@ print_external_objects(from, count)
 	break;
 
       case TC_BIG_FIXNUM:
-	print_a_bignum (*from++);
+	print_a_bignum (++from);
 	from += (1 + OBJECT_DATUM (*from));
 	break;