🚀 go-pugleaf

In article <437fk4$5no@eco.twg.com>, lance@eco.twg.com (Lance Kibblewhite) writes
> ....
> What do you mean 'C' doesn't have local functions!
> 
> Give me a real language with local functions, and a decent optimizer
> anyday.

And, you know, there is no other means of combining re:entransie, "signal",
and "longjmp", until "signal" takes a pointer that it passes to the handler:

y()
{	jmp_buf b;
	x(int k)
	{	longjmp(b, k);
	}
	signal(SIGFPE, x);
	if (!setjmp(b)) 1/0;
	return 1;
}

(yes, I know that this is not enough, but I hope that you understand.)
or

x(int k, void *b)
{	longjmp((jmp_buf) b, k);
}
y()
{	jmp_buf b;
	signal(SIGFPE, x, b);
	if (!setjmp(b)) 1/0;
	return 1;
}