From a492aded39a5972b76db1e6874b6bbc2439a9cc3 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 9 Aug 1990 19:52:20 +0000
Subject: [PATCH] Fix casting bug.

---
 v7/src/microcode/uxtrap.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/uxtrap.c b/v7/src/microcode/uxtrap.c
index a9a10967c..cceca71c8 100644
--- a/v7/src/microcode/uxtrap.c
+++ b/v7/src/microcode/uxtrap.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtrap.c,v 1.3 1990/08/09 19:40:39 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxtrap.c,v 1.4 1990/08/09 19:52:20 jinx Exp $
 
 Copyright (c) 1990 Massachusetts Institute of Technology
 
@@ -469,11 +469,11 @@ DEFUN (continue_from_trap, (signo, code, scp),
 
   new_stack_pointer =
     (scheme_sp_valid
-     ? scheme_sp
+     ? ((SCHEME_OBJECT *) scheme_sp)
      : (pc_in_C && (Stack_Pointer < Stack_Top)
 	&& (Stack_Pointer > Absolute_Stack_Base))
-     ? ((long) Stack_Pointer)
-     : ((long) 0));
+     ? Stack_Pointer
+     : ((SCHEME_OBJECT *) 0));
 
   if (pc_in_hyper_space || (pc_in_scheme && ALLOW_ONLY_C))
   {
-- 
2.25.1