/[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.50.2.2 by ttn, Thu Mar 14 05:26:16 2002 UTC revision 1.50.2.3 by kryde, Fri Aug 8 23:09:49 2003 UTC
# Line 178  SCM_DEFINE (scm_source_properties, "sour Line 178  SCM_DEFINE (scm_source_properties, "sour
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    

Legend:
Removed from v.1.50.2.2  
changed lines
  Added in v.1.50.2.3

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