scsh-0.6/c/unix/test.c

13 lines
181 B
C
Raw Permalink Normal View History

1999-09-14 08:45:02 -04:00
#include "c/scheme48.h"
long
frog(long arg_count, long *args)
{
long i, res;
for (i = 0, res = s48_enter_integer(-100); i < arg_count; res += args[i], i++);
return res;
}