From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 4 Nov 1993 04:00:48 +0000 (+0000)
Subject: Fix a cast.
X-Git-Tag: 20090517-FFI~7604
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3a6299dbca64fa3bd36c0ed30b8bc8aaa49f03e5;p=mit-scheme.git

Fix a cast.
---

diff --git a/v7/src/microcode/pruxdld.c b/v7/src/microcode/pruxdld.c
index 1a10283af..4f54adfbc 100644
--- a/v7/src/microcode/pruxdld.c
+++ b/v7/src/microcode/pruxdld.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pruxdld.c,v 1.6 1993/11/02 20:59:08 jmiller Exp $
+$Id: pruxdld.c,v 1.7 1993/11/04 04:00:48 gjr Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -177,7 +177,7 @@ the corresponding Scheme integer.")
   PRIMITIVE_HEADER (1);
   
   address = ((long) (arg_integer (1)));
-  thunk = ((unsigned long EXFUN ((*), (void))) address);
+  thunk = ((long EXFUN ((*), (void))) address);
   result = ((* thunk) ());
   PRIMITIVE_RETURN (long_to_integer (result));
 }