From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Fri, 4 Feb 1994 01:01:15 +0000 (+0000)
Subject: Fix parameter name mismatch in use of DEFUN.
X-Git-Tag: 20090517-FFI~7290
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0558b97c9cc4df6da3de6a2f06947fd2e9ace6dd;p=mit-scheme.git

Fix parameter name mismatch in use of DEFUN.
---

diff --git a/v7/src/microcode/cmpintmd/hppa.h b/v7/src/microcode/cmpintmd/hppa.h
index 4bbcd95b1..b523c3e99 100644
--- a/v7/src/microcode/cmpintmd/hppa.h
+++ b/v7/src/microcode/cmpintmd/hppa.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: hppa.h,v 1.49 1994/02/01 02:45:56 gjr Exp $
+$Id: hppa.h,v 1.50 1994/02/04 01:01:15 gjr Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -640,7 +640,7 @@ DEFUN (assemble_12, (inst), union branch_inst inst)
 static unsigned long hppa_closure_hook = 0;
 
 static unsigned long
-DEFUN (C_closure_entry_point, (closure), unsigned long C_closure)
+DEFUN (C_closure_entry_point, (C_closure), unsigned long C_closure)
 {
   if ((C_closure & 0x3) != 0x2)
     return (C_closure);
diff --git a/v8/src/microcode/cmpintmd/hppa.h b/v8/src/microcode/cmpintmd/hppa.h
index 4bbcd95b1..b523c3e99 100644
--- a/v8/src/microcode/cmpintmd/hppa.h
+++ b/v8/src/microcode/cmpintmd/hppa.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: hppa.h,v 1.49 1994/02/01 02:45:56 gjr Exp $
+$Id: hppa.h,v 1.50 1994/02/04 01:01:15 gjr Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -640,7 +640,7 @@ DEFUN (assemble_12, (inst), union branch_inst inst)
 static unsigned long hppa_closure_hook = 0;
 
 static unsigned long
-DEFUN (C_closure_entry_point, (closure), unsigned long C_closure)
+DEFUN (C_closure_entry_point, (C_closure), unsigned long C_closure)
 {
   if ((C_closure & 0x3) != 0x2)
     return (C_closure);