mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2025-02-25 21:21:14 +00:00
24 lines
219 B
R
24 lines
219 B
R
|
id func (id self, SEL bar, ...)
|
||
|
{
|
||
|
return (id)1;
|
||
|
}
|
||
|
|
||
|
IMP get_func ()
|
||
|
{
|
||
|
return func;
|
||
|
}
|
||
|
|
||
|
id foo (IMP msg)
|
||
|
{
|
||
|
if (!(msg = get_func ())) {
|
||
|
return nil;
|
||
|
}
|
||
|
return msg(nil, nil);
|
||
|
}
|
||
|
|
||
|
int
|
||
|
main()
|
||
|
{
|
||
|
return foo (nil) == nil;
|
||
|
}
|