gEDA-cvs: gaf.git: branch: master updated (1.5.1-20081221-28-g02c551b)

[git@xxxxxxxxxx]

The branch, master has been updated
       via  02c551b77e47fb0fbf2de3bfa62d43a095862a52 (commit)
      from  0029ee5696a4f8c0fd2a0edb64c0096792e24912 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.


=========
 Summary
=========

 libgeda/configure.ac.in            |    1 +
 libgeda/include/guile_compat_1.6.h |    4 ++++
 libgeda/src/s_color.c              |    2 +-
 3 files changed, 6 insertions(+), 1 deletions(-)


=================
 Commit Messages
=================

commit 02c551b77e47fb0fbf2de3bfa62d43a095862a52
Author: Peter TB Brett <peter@xxxxxxxxxxxxx>
Date:   Tue Dec 23 09:30:01 2008 +0000

    libgeda: Update Guile 1.6 compatibility headers.
    
    Add scm_cdr() to Guile 1.6 compatibility checks, and remove uses of
    scm_is_null().

:100644 100644 758bcba... 3ed7668... M	libgeda/configure.ac.in
:100644 100644 201bb56... f1cd02b... M	libgeda/include/guile_compat_1.6.h
:100644 100644 1d266ff... e29a78f... M	libgeda/src/s_color.c

=========
 Changes
=========

commit 02c551b77e47fb0fbf2de3bfa62d43a095862a52
Author: Peter TB Brett <peter@xxxxxxxxxxxxx>
Date:   Tue Dec 23 09:30:01 2008 +0000

    libgeda: Update Guile 1.6 compatibility headers.
    
    Add scm_cdr() to Guile 1.6 compatibility checks, and remove uses of
    scm_is_null().

diff --git a/libgeda/configure.ac.in b/libgeda/configure.ac.in
index 758bcba..3ed7668 100644
--- a/libgeda/configure.ac.in
+++ b/libgeda/configure.ac.in
@@ -154,6 +154,7 @@ scm_c_catch,
 scm_caddr,
 scm_cadr,
 scm_car,
+scm_cdr,
 scm_from_int,
 scm_from_locale_string,
 scm_from_locale_symbol,
diff --git a/libgeda/include/guile_compat_1.6.h b/libgeda/include/guile_compat_1.6.h
index 201bb56..f1cd02b 100644
--- a/libgeda/include/guile_compat_1.6.h
+++ b/libgeda/include/guile_compat_1.6.h
@@ -39,6 +39,10 @@
 #define scm_car(x) SCM_CAR(x)
 #endif
 
+#if !HAVE_DECL_SCM_CDR
+#define scm_cdr(x) SCM_CDR(x)
+#endif
+
 #if !HAVE_DECL_SCM_CADDR
 #define scm_caddr(x) SCM_CADDR(x)
 #endif
diff --git a/libgeda/src/s_color.c b/libgeda/src/s_color.c
index 1d266ff..e29a78f 100644
--- a/libgeda/src/s_color.c
+++ b/libgeda/src/s_color.c
@@ -240,7 +240,7 @@ s_color_map_from_scm (COLOR *map, SCM lst, const char *scheme_proc_name)
   SCM curr = lst;
   SCM wrong_type_arg_sym = scm_from_locale_symbol ("wrong-type-arg");
   SCM proc_name = scm_from_locale_string (scheme_proc_name);
-  while (!scm_is_null (curr)) {
+  while (curr != SCM_EOL) {
     int i;
     char *rgba;
     SCM s;




_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs