Fix a bug in bignum printing.

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index 2449c2063207d06ea0e92fe87e5f5dc680516cc1..ca21a642e84599488ca535284c25fe484b2db38a 100644 (file)
--- 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 7265dcfdd5430e5280977770d419a3e9ec29f65d..0429e21888ffd6b2cabba33bdc5a7347fb2a26db 100644 (file)
--- 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;