Category:Fexl: Difference between revisions

Content added Content deleted
m (whitespace)
No edit summary
Line 14: Line 14:
<lang C>value fexl_S(value f)
<lang C>value fexl_S(value f)
{
{
if (!f->L->L || !f->L->L->L) return f;
if (!f->L || !f->L->L || !f->L->L->L) return f;
return A( A(f->L->L->R, f->R), A(f->L->R, f->R) );
return A( A(f->L->L->R, f->R), A(f->L->R, f->R) );
}</lang>
}</lang>
Line 22: Line 22:
<lang C>value fexl_char_put(value f)
<lang C>value fexl_char_put(value f)
{
{
if (!f->L->L) return f;
if (!f->L || !f->L->L) return f;
value x = f->L->R;
value x = f->L->R;
if (!arg(type_long,x)) return f;
if (!arg(type_long,x)) return f;