mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-15 07:54:13 +00:00
Remove call-c.c (#94)
This incompletely defines a function `call_c_fn`. This is actually defined in `src/foreign.c` (and called from `src/subr.c`).
This commit is contained in:
parent
674c9c56cf
commit
9416aa7c40
29
src/call-c.c
29
src/call-c.c
@ -1,29 +0,0 @@
|
||||
/* $Id: call-c.c,v 1.2 1999/01/03 02:06:48 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
||||
*/
|
||||
static char *id = "$Id: call-c.c,v 1.2 1999/01/03 02:06:48 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "version.h"
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* F O R E I G N - F U N C T I O N C A L L I N T E R F A C E */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "lispemul.h"
|
||||
|
||||
lispPTR call_c_fn(args);
|
||||
{
|
||||
void() *fn = args[0];
|
||||
(*fn)();
|
||||
return (NIL);
|
||||
}
|
||||
Loading…
x
Reference in New Issue
Block a user