conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Some bloody K&R function definition were missing. 

git-svn-id: svn://svn.zoy.org/elk/trunk@92 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-09-04 14:33:43 +00:00
parent e81273f8a3
commit c85894ea26
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/io.c
View File

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

3
src/terminate.c
View File

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