178 |
else if (SCM_NCONSP (obj)) |
else if (SCM_NCONSP (obj)) |
179 |
SCM_WRONG_TYPE_ARG (1, obj); |
SCM_WRONG_TYPE_ARG (1, obj); |
180 |
#endif |
#endif |
181 |
p = scm_hashq_ref (scm_source_whash, obj, SCM_BOOL_F); |
p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL); |
182 |
if (SRCPROPSP (p)) |
if (SRCPROPSP (p)) |
183 |
return scm_srcprops_to_plist (p); |
return scm_srcprops_to_plist (p); |
184 |
return SCM_EOL; |
else |
185 |
|
/* list from set-source-properties!, or SCM_EOL for not found */ |
186 |
|
return p; |
187 |
} |
} |
188 |
#undef FUNC_NAME |
#undef FUNC_NAME |
189 |
|
|