summaryrefslogtreecommitdiff
path: root/libguile/goops.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-03-16 18:39:16 +0100
committerLudovic Courtès <ludo@gnu.org>2009-03-16 18:39:16 +0100
commita4167c920a88ceb02ce201a6cd03b60204657ddd (patch)
tree2e20ff03e2c2393d127f470f589330ede04b3391 /libguile/goops.c
parentbb2e15a5f4129d0ed9dedb2ac39f3205480c849e (diff)
parentf307fbcec2cbaaa95b8c861395133b519c7519cf (diff)
downloadguile-a4167c920a88ceb02ce201a6cd03b60204657ddd.tar.gz
Merge branch 'boehm-demers-weiser-gc' into bdw-gc-static-alloc
Conflicts: libguile/procs.h
Diffstat (limited to 'libguile/goops.c')
-rw-r--r--libguile/goops.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/goops.c b/libguile/goops.c
index 520b1c25d..bbeb58433 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -233,7 +233,7 @@ SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0,
return scm_class_primitive_generic;
else
return scm_class_procedure;
- case scm_tc7_cclo:
+ case scm_tc7_gsubr:
return scm_class_procedure;
case scm_tc7_pws:
return scm_class_procedure_with_setter;