summaryrefslogtreecommitdiff
path: root/libguile/goops.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-12-03 17:05:14 +0100
committerAndy Wingo <wingo@pobox.com>2009-12-03 17:05:14 +0100
commit31d845b4bc4bf50f32492c17dc43c9ccea779acb (patch)
tree1c7ce1e4bba02e5dfb1934313eb36fbd8c422ca6 /libguile/goops.c
parentbf5a05f2a01fee23f5622d1429dc32f4850f98b5 (diff)
downloadguile-31d845b4bc4bf50f32492c17dc43c9ccea779acb.tar.gz
remove asubrs
* libguile/tags.h (scm_tcs_subrs, scm_tc7_asubr): Remove definitions. * libguile/goops.c (scm_class_of) * libguile/procprop.c (scm_i_procedure_arity) * libguile/procs.c (scm_thunk_p) * libguile/vm.c (apply_foreign): Remove cases for asubrs. * libguile/array-map.c: Gut all of the optimizations, because there are no more asubrs, soon won't be rpsubrs, and all of this should happen on the Scheme level, ideally.
Diffstat (limited to 'libguile/goops.c')
-rw-r--r--libguile/goops.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/libguile/goops.c b/libguile/goops.c
index 7ce5b3173..5c12f51a4 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -225,7 +225,6 @@ SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0,
case scm_tc16_fraction:
return scm_class_fraction;
}
- case scm_tc7_asubr:
case scm_tc7_cxr:
case scm_tc7_rpsubr:
case scm_tc7_gsubr: