* Some bloody K&R function definition were missing.

git-svn-id: svn://svn.zoy.org/elk/trunk@92 55e467fa-43c5-0310-a8a2-de718669efc6

src/io.c

@@ -340,8 +340,7 @@ Object P_Close_Output_Port (Object port) {
     return General_Close_Port (port);
 }
 
-#define General_With(prim,curr,flags) Object prim (name, thunk)\
-        Object name, thunk; {\
+#define General_With(prim,curr,flags) Object prim (Object name, Object thunk) {\
     Object old, ret;\
     GC_Node2;\
 \

src/terminate.c

@@ -44,8 +44,7 @@ void Init_Terminate () {
 /* Register an object with the given group and termination function;
  * object can be marked as LEADER.
  */
-void Register_Object (obj, group, term, leader_flag) Object obj; GENERIC group;
-        PFO term; {
+void Register_Object (Object obj, GENERIC group, PFO term, int leader_flag) {
     WEAK_NODE *p;
 
     p = (WEAK_NODE *)Safe_Malloc (sizeof (*p));