From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 20 Jul 1996 22:36:00 +0000 (+0000)
Subject: Typo.
X-Git-Tag: 20090517-FFI~5468
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=369b5659f53b0894e970645c6f4475303108b4e2;p=mit-scheme.git

Typo.
---

diff --git a/v7/src/microcode/fixnum.c b/v7/src/microcode/fixnum.c
index 9ac4e88c5..6424a25d9 100644
--- a/v7/src/microcode/fixnum.c
+++ b/v7/src/microcode/fixnum.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fixnum.c,v 9.39 1996/07/20 22:26:26 adams Exp $
+$Id: fixnum.c,v 9.40 1996/07/20 22:36:00 adams Exp $
 
 Copyright (c) 1987-96 Massachusetts Institute of Technology
 
@@ -354,8 +354,8 @@ DEFINE_PRIMITIVE ("FIXNUM->FLONUM", Prim_fixnum_to_flonum, 1, 1,
 "(FIXNUM)\n\
 Equivalent to (INTEGER->FLONUM FIXNUM 2)")
 {
-  PRIMITIVE_HEADER (2);
+  PRIMITIVE_HEADER (1);
   {
-    PRIMITIVE_RETURN (FIXNUM_TO_FLONUM (arg_fixnum (2)));
+    PRIMITIVE_RETURN (FIXNUM_TO_FLONUM (arg_fixnum (1)));
   }
 }