From 03aec98d5ec33f5ce6cde2e97d09790c87004991 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Sep 1990 01:38:18 +0000
Subject: [PATCH] Use `FIXNUM_TO_LONG' in definition of `fixnum_to_long'.

---
 v7/src/microcode/artutl.c | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

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
-- 
2.25.1