158 |
obj = SCM_MEMOIZED_EXP (obj); |
obj = SCM_MEMOIZED_EXP (obj); |
159 |
else if (!SCM_CONSP (obj)) |
else if (!SCM_CONSP (obj)) |
160 |
SCM_WRONG_TYPE_ARG (1, obj); |
SCM_WRONG_TYPE_ARG (1, obj); |
161 |
p = scm_hashq_ref (scm_source_whash, obj, SCM_BOOL_F); |
p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL); |
162 |
if (SRCPROPSP (p)) |
if (SRCPROPSP (p)) |
163 |
return scm_srcprops_to_plist (p); |
return scm_srcprops_to_plist (p); |
164 |
return SCM_EOL; |
else |
165 |
|
/* list from set-source-properties!, or SCM_EOL for not found */ |
166 |
|
return p; |
167 |
} |
} |
168 |
#undef FUNC_NAME |
#undef FUNC_NAME |
169 |
|
|