161 |
plist = scm_acons (scm_sym_filename, SRCPROPFNAME (obj), plist); |
plist = scm_acons (scm_sym_filename, SRCPROPFNAME (obj), plist); |
162 |
plist = scm_acons (scm_sym_column, SCM_MAKINUM (SRCPROPCOL (obj)), plist); |
plist = scm_acons (scm_sym_column, SCM_MAKINUM (SRCPROPCOL (obj)), plist); |
163 |
plist = scm_acons (scm_sym_line, SCM_MAKINUM (SRCPROPLINE (obj)), plist); |
plist = scm_acons (scm_sym_line, SCM_MAKINUM (SRCPROPLINE (obj)), plist); |
164 |
plist = scm_acons (scm_sym_breakpoint, SRCPROPBRK (obj), plist); |
plist = scm_acons (scm_sym_breakpoint, SCM_BOOL (SRCPROPBRK (obj)), plist); |
165 |
return plist; |
return plist; |
166 |
} |
} |
167 |
|
|
224 |
p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL); |
p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL); |
225 |
if (!SRCPROPSP (p)) |
if (!SRCPROPSP (p)) |
226 |
goto plist; |
goto plist; |
227 |
if (SCM_EQ_P (scm_sym_breakpoint, key)) p = SRCPROPBRK (p); |
if (SCM_EQ_P (scm_sym_breakpoint, key)) p = SCM_BOOL (SRCPROPBRK (p)); |
228 |
else if (SCM_EQ_P (scm_sym_line, key)) p = SCM_MAKINUM (SRCPROPLINE (p)); |
else if (SCM_EQ_P (scm_sym_line, key)) p = SCM_MAKINUM (SRCPROPLINE (p)); |
229 |
else if (SCM_EQ_P (scm_sym_column, key)) p = SCM_MAKINUM (SRCPROPCOL (p)); |
else if (SCM_EQ_P (scm_sym_column, key)) p = SCM_MAKINUM (SRCPROPCOL (p)); |
230 |
else if (SCM_EQ_P (scm_sym_filename, key)) p = SRCPROPFNAME (p); |
else if (SCM_EQ_P (scm_sym_filename, key)) p = SRCPROPFNAME (p); |