scsh-0.6/c/unix/test.c

13 lines
181 B
C
Raw Normal View History

2003-05-01 06:21:33 -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;
}