* eval.c (SCM_CEVAL): Added missing case for cclo. (Thanks to

Christian Lynbech.)

diff --git a/THANKS b/THANKS
index 9aee1b7..6737f33 100644 (file)
--- a/THANKS
+++ b/THANKS
@@ -4,6 +4,7 @@ Bug reports and fixes from:
 
      Etienne Bernard
         Brad Bowman
+   Christian Lynbech
         Russ McManus
      Nicolas Neuss
    Thien-Thi Nguyen

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 78a6a19..9d2922c 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+1998-11-17  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
+
+       * eval.c (SCM_CEVAL): Added missing case for cclo.  (Thanks to
+       Christian Lynbech.)
+
 1998-11-14  Mikael Djurfeldt  <mdj@barbara.nada.kth.se>
 
        * objects.c (scm_i_make_class_object): Renamed from

diff --git a/libguile/eval.c b/libguile/eval.c
index 5e31e0d..17bc084 100644 (file)
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1974,6 +1974,9 @@ dispatch:
     case scm_tc7_substring:
     case scm_tc7_smob:
     case scm_tcs_closures:
+#ifdef CCLO
+    case scm_tc7_cclo:
+#endif
     case scm_tcs_subrs:
       RETURN (x);