From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Sep 1990 01:38:18 +0000 (+0000)
Subject: Use `FIXNUM_TO_LONG' in definition of `fixnum_to_long'.
X-Git-Tag: 20090517-FFI~11217
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=03aec98d5ec33f5ce6cde2e97d09790c87004991;p=mit-scheme.git

Use `FIXNUM_TO_LONG' in definition of `fixnum_to_long'.
---

diff --git a/v7/src/microcode/artutl.c b/v7/src/microcode/artutl.c
index 7cb2a3a97..35afbebb0 100644
--- a/v7/src/microcode/artutl.c
+++ b/v7/src/microcode/artutl.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/artutl.c,v 1.4 1989/09/25 16:50:56 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/artutl.c,v 1.5 1990/09/08 01:38:18 cph Rel $
 
-Copyright (c) 1989 Massachusetts Institute of Technology
+Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -43,11 +43,7 @@ long
 fixnum_to_long (fixnum)
      SCHEME_OBJECT fixnum;
 {
-  fast long result = ((long) (OBJECT_DATUM (fixnum)));
-  return
-    (((result & FIXNUM_SIGN_BIT) != 0)
-     ? (result | (-1 << DATUM_LENGTH))
-     : result);
+  return (FIXNUM_TO_LONG (fixnum));
 }
 
 SCHEME_OBJECT