From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Fri, 18 Sep 1992 19:39:16 +0000 (+0000)
Subject: Can't use signed as a variable name.
X-Git-Tag: 20090517-FFI~8938
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c1fd572abb0f797edfb23f149f478b504f2fe0fb;p=mit-scheme.git

Can't use signed as a variable name.
---

diff --git a/v7/src/microcode/artutl.c b/v7/src/microcode/artutl.c
index cb9a456ce..c880a2b00 100644
--- a/v7/src/microcode/artutl.c
+++ b/v7/src/microcode/artutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: artutl.c,v 1.9 1992/09/18 16:54:06 jinx Exp $
+$Id: artutl.c,v 1.10 1992/09/18 19:39:16 jinx Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -92,12 +92,12 @@ DEFUN (integer_to_ulong,
 SCHEME_OBJECT
 DEFUN (ulong_to_integer, (number), unsigned long number)
 {
-  long signed = ((long) number);
-  if (signed >= 0)
+  long s_number; = ((long) number);
+  if (s_number >= 0)
     return
-      ((LONG_TO_FIXNUM_P (number))
-       ? (LONG_TO_FIXNUM (number))
-       : (long_to_bignum (number)));
+      ((LONG_TO_FIXNUM_P (s_number))
+       ? (LONG_TO_FIXNUM (s_number))
+       : (long_to_bignum (s_number)));
   else
     return (ulong_to_bignum (number));
 }