From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 Sep 1992 20:34:40 +0000 (+0000)
Subject: Fix occurrences of `set_IntEnb'.
X-Git-Tag: 20090517-FFI~8975
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e756ffa083011388a7ceeaa3902b923a1fae523a;p=mit-scheme.git

Fix occurrences of `set_IntEnb'.
---

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index e6429bc56..600666f4b 100644
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.67 1992/09/11 21:58:33 cph Exp $
+$Id: interp.c,v 9.68 1992/09/14 20:34:40 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -403,9 +403,9 @@ DEFUN (abort_to_interpreter, (argument), int argument)
   interpreter_throw_argument = argument;
   {
     long old_mask = IntEnb;
-    set_IntEnb = 0;
+    set_IntEnb (0);
     dstack_set_position (interpreter_catch_dstack_position);
-    set_IntEnb = old_mask;
+    set_IntEnb (old_mask);
   }
   obstack_free ((&scratch_obstack), 0);
   obstack_init (&scratch_obstack);
diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index e6429bc56..600666f4b 100644
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.67 1992/09/11 21:58:33 cph Exp $
+$Id: interp.c,v 9.68 1992/09/14 20:34:40 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -403,9 +403,9 @@ DEFUN (abort_to_interpreter, (argument), int argument)
   interpreter_throw_argument = argument;
   {
     long old_mask = IntEnb;
-    set_IntEnb = 0;
+    set_IntEnb (0);
     dstack_set_position (interpreter_catch_dstack_position);
-    set_IntEnb = old_mask;
+    set_IntEnb (old_mask);
   }
   obstack_free ((&scratch_obstack), 0);
   obstack_init (&scratch_obstack);