guile/guile-core/libguile debug.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/10/12 05:02:03

Modified files:
        guile-core/libguile: debug.c 

Log message:
        * debug.c (scm_mem_to_proc): Fixed typo in previous change.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/debug.c.diff?cvsroot=OldCVS&tr1=1.95&tr2=1.96&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/debug.c
diff -u guile/guile-core/libguile/debug.c:1.95 
guile/guile-core/libguile/debug.c:1.96
--- guile/guile-core/libguile/debug.c:1.95      Thu Oct 11 18:26:25 2001
+++ guile/guile-core/libguile/debug.c   Fri Oct 12 05:02:03 2001
@@ -309,7 +309,7 @@
   SCM_VALIDATE_MEMOIZED (1,obj);
   env = SCM_MEMOIZED_ENV (obj);
   obj = SCM_MEMOIZED_EXP (obj);
-  if (!SCM_CONSP (obj) || !SCM_EQ_P (CAR (obj), SCM_IM_LAMBDA))
+  if (!SCM_CONSP (obj) || !SCM_EQ_P (SCM_CAR (obj), SCM_IM_LAMBDA))
     SCM_MISC_ERROR ("expected lambda expression", scm_list_1 (obj));
   return scm_closure (SCM_CDR (obj), env);
 }