Fix a cast.

diff --git a/v7/src/microcode/pruxdld.c b/v7/src/microcode/pruxdld.c
index 1a10283afbaaa87e804b7ef1550c4c7c05904a33..4f54adfbccc7440ec037b1c2eeb75ded7a1128c0 100644 (file)
--- 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));
 }