2290 |
SCM variable = SCM_CAR (x); |
SCM variable = SCM_CAR (x); |
2291 |
if (SCM_ILOCP (variable)) |
if (SCM_ILOCP (variable)) |
2292 |
location = scm_ilookup (variable, env); |
location = scm_ilookup (variable, env); |
2293 |
else |
else if (SCM_VARIABLEP (variable)) |
|
if (SCM_VARIABLEP (variable)) |
|
2294 |
location = SCM_VARIABLE_LOC (variable); |
location = SCM_VARIABLE_LOC (variable); |
2295 |
else /* (SCM_SYMBOLP (variable)) is known to be true */ |
else /* (SCM_SYMBOLP (variable)) is known to be true */ |
2296 |
location = scm_lookupcar (x, env, 1); |
location = scm_lookupcar (x, env, 1); |
2753 |
SCM_ALLOW_INTS; |
SCM_ALLOW_INTS; |
2754 |
PREP_APPLY (SCM_UNDEFINED, SCM_EOL); |
PREP_APPLY (SCM_UNDEFINED, SCM_EOL); |
2755 |
goto loop; |
goto loop; |
2756 |
|
#if SCM_ENABLE_DEPRECATED == 1 |
2757 |
case 1: |
case 1: |
2758 |
x = arg1; |
x = arg1; |
2759 |
if (SCM_NIMP (x)) |
if (SCM_NIMP (x)) |
2763 |
} |
} |
2764 |
else |
else |
2765 |
RETURN (arg1); |
RETURN (arg1); |
2766 |
|
#endif |
2767 |
case 0: |
case 0: |
2768 |
RETURN (arg1); |
RETURN (arg1); |
2769 |
} |
} |