mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

(scm_source_properties): Use SCM_NECONSP instead of

Browse source 
SCM_NCONSP in arg validation.
(scm_set_source_properties_x): Ditto.
(scm_set_source_property_x): Ditto.
This commit is contained in:
Neil Jerram 2005-06-07 19:16:12 +00:00
parent 9dc28897ef
commit 8a5f4a307f
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2005-06-07 Neil Jerram <neil@ossau.uklinux.net>
* srcprop.c (scm_source_properties): Use SCM_NECONSP instead of
SCM_NCONSP in arg validation.
(scm_set_source_properties_x): Ditto.
(scm_set_source_property_x): Ditto.
2005-06-06 Kevin Ryde <user42@zip.com.au> 2005-06-06 Kevin Ryde <user42@zip.com.au>
* strop.c (scm_string_split): Compare char/char in scan. Mixing an * strop.c (scm_string_split): Compare char/char in scan. Mixing an

6
libguile/srcprop.c
View file

@ -175,7 +175,7 @@ SCM_DEFINE (scm_source_properties, "source-properties", 1, 0, 0,
if (SCM_MEMOIZEDP (obj)) if (SCM_MEMOIZEDP (obj))
obj = SCM_MEMOIZED_EXP (obj); obj = SCM_MEMOIZED_EXP (obj);
#ifndef SCM_RECKLESS #ifndef SCM_RECKLESS
else if (SCM_NCONSP (obj)) else if (SCM_NECONSP (obj))
SCM_WRONG_TYPE_ARG (1, obj); SCM_WRONG_TYPE_ARG (1, obj);
#endif #endif
p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL); p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL);
@ -200,7 +200,7 @@ SCM_DEFINE (scm_set_source_properties_x, "set-source-properties!", 2, 0, 0,
if (SCM_MEMOIZEDP (obj)) if (SCM_MEMOIZEDP (obj))
obj = SCM_MEMOIZED_EXP (obj); obj = SCM_MEMOIZED_EXP (obj);
#ifndef SCM_RECKLESS #ifndef SCM_RECKLESS
else if (SCM_NCONSP (obj)) else if (SCM_NECONSP (obj))
SCM_WRONG_TYPE_ARG(1, obj); SCM_WRONG_TYPE_ARG(1, obj);
#endif #endif
handle = scm_hashq_create_handle_x (scm_source_whash, obj, plist); handle = scm_hashq_create_handle_x (scm_source_whash, obj, plist);
@ -254,7 +254,7 @@ SCM_DEFINE (scm_set_source_property_x, "set-source-property!", 3, 0, 0,
if (SCM_MEMOIZEDP (obj)) if (SCM_MEMOIZEDP (obj))
obj = SCM_MEMOIZED_EXP (obj); obj = SCM_MEMOIZED_EXP (obj);
#ifndef SCM_RECKLESS #ifndef SCM_RECKLESS
else if (SCM_NCONSP (obj)) else if (SCM_NECONSP (obj))
SCM_WRONG_TYPE_ARG (1, obj); SCM_WRONG_TYPE_ARG (1, obj);
#endif #endif
h = scm_whash_get_handle (scm_source_whash, obj); h = scm_whash_get_handle (scm_source_whash, obj);