/[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.62 by hanwen, Thu May 15 22:48:20 2003 UTC revision 1.63 by kryde, Fri Aug 8 22:57:28 2003 UTC
# Line 158  SCM_DEFINE (scm_source_properties, "sour Line 158  SCM_DEFINE (scm_source_properties, "sour
158      obj = SCM_MEMOIZED_EXP (obj);      obj = SCM_MEMOIZED_EXP (obj);
159    else if (!SCM_CONSP (obj))    else if (!SCM_CONSP (obj))
160      SCM_WRONG_TYPE_ARG (1, obj);      SCM_WRONG_TYPE_ARG (1, obj);
161    p = scm_hashq_ref (scm_source_whash, obj, SCM_BOOL_F);    p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL);
162    if (SRCPROPSP (p))    if (SRCPROPSP (p))
163      return scm_srcprops_to_plist (p);      return scm_srcprops_to_plist (p);
164    return SCM_EOL;    else
165        /* list from set-source-properties!, or SCM_EOL for not found */
166        return p;
167  }  }
168  #undef FUNC_NAME  #undef FUNC_NAME
169    

Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63

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