179 |
#define FUNC_NAME s_scm_source_properties |
#define FUNC_NAME s_scm_source_properties |
180 |
{ |
{ |
181 |
SCM p; |
SCM p; |
182 |
SCM_VALIDATE_NIM (1,obj); |
SCM_VALIDATE_NIM (1, obj); |
183 |
if (SCM_MEMOIZEDP (obj)) |
if (SCM_MEMOIZEDP (obj)) |
184 |
obj = SCM_MEMOIZED_EXP (obj); |
obj = SCM_MEMOIZED_EXP (obj); |
185 |
else if (!SCM_CONSP (obj)) |
else if (!SCM_CONSP (obj)) |
200 |
#define FUNC_NAME s_scm_set_source_properties_x |
#define FUNC_NAME s_scm_set_source_properties_x |
201 |
{ |
{ |
202 |
SCM handle; |
SCM handle; |
203 |
SCM_VALIDATE_NIM (1,obj); |
SCM_VALIDATE_NIM (1, obj); |
204 |
if (SCM_MEMOIZEDP (obj)) |
if (SCM_MEMOIZEDP (obj)) |
205 |
obj = SCM_MEMOIZED_EXP (obj); |
obj = SCM_MEMOIZED_EXP (obj); |
206 |
else if (!SCM_CONSP (obj)) |
else if (!SCM_CONSP (obj)) |
218 |
#define FUNC_NAME s_scm_source_property |
#define FUNC_NAME s_scm_source_property |
219 |
{ |
{ |
220 |
SCM p; |
SCM p; |
221 |
SCM_VALIDATE_NIM (1,obj); |
SCM_VALIDATE_NIM (1, obj); |
222 |
if (SCM_MEMOIZEDP (obj)) |
if (SCM_MEMOIZEDP (obj)) |
223 |
obj = SCM_MEMOIZED_EXP (obj); |
obj = SCM_MEMOIZED_EXP (obj); |
224 |
else if (!SCM_CONSP (obj)) |
else if (!SCM_CONSP (obj)) |
250 |
{ |
{ |
251 |
scm_whash_handle h; |
scm_whash_handle h; |
252 |
SCM p; |
SCM p; |
253 |
SCM_VALIDATE_NIM (1,obj); |
SCM_VALIDATE_NIM (1, obj); |
254 |
if (SCM_MEMOIZEDP (obj)) |
if (SCM_MEMOIZEDP (obj)) |
255 |
obj = SCM_MEMOIZED_EXP (obj); |
obj = SCM_MEMOIZED_EXP (obj); |
256 |
else if (!SCM_CONSP (obj)) |
else if (!SCM_CONSP (obj)) |
284 |
} |
} |
285 |
else if (SCM_EQ_P (scm_sym_line, key)) |
else if (SCM_EQ_P (scm_sym_line, key)) |
286 |
{ |
{ |
287 |
SCM_VALIDATE_INUM (3,datum); |
SCM_VALIDATE_INUM (3, datum); |
288 |
if (SRCPROPSP (p)) |
if (SRCPROPSP (p)) |
289 |
SETSRCPROPLINE (p, SCM_INUM (datum)); |
SETSRCPROPLINE (p, SCM_INUM (datum)); |
290 |
else |
else |
294 |
} |
} |
295 |
else if (SCM_EQ_P (scm_sym_column, key)) |
else if (SCM_EQ_P (scm_sym_column, key)) |
296 |
{ |
{ |
297 |
SCM_VALIDATE_INUM (3,datum); |
SCM_VALIDATE_INUM (3, datum); |
298 |
if (SRCPROPSP (p)) |
if (SRCPROPSP (p)) |
299 |
SETSRCPROPCOL (p, SCM_INUM (datum)); |
SETSRCPROPCOL (p, SCM_INUM (datum)); |
300 |
else |
else |