/[guile]/guile/guile-core/libguile/srcprop.c
ViewVC logotype

Diff of /guile/guile-core/libguile/srcprop.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.58 by dirk, Sun Jun 30 22:03:43 2002 UTC revision 1.59 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC
# Line 179  SCM_DEFINE (scm_source_properties, "sour Line 179  SCM_DEFINE (scm_source_properties, "sour
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))
# Line 200  SCM_DEFINE (scm_set_source_properties_x, Line 200  SCM_DEFINE (scm_set_source_properties_x,
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))
# Line 218  SCM_DEFINE (scm_source_property, "source Line 218  SCM_DEFINE (scm_source_property, "source
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))
# Line 250  SCM_DEFINE (scm_set_source_property_x, " Line 250  SCM_DEFINE (scm_set_source_property_x, "
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))
# Line 284  SCM_DEFINE (scm_set_source_property_x, " Line 284  SCM_DEFINE (scm_set_source_property_x, "
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
# Line 294  SCM_DEFINE (scm_set_source_property_x, " Line 294  SCM_DEFINE (scm_set_source_property_x, "
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

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26