diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-03 17:05:14 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-03 17:05:14 +0100 |
commit | 31d845b4bc4bf50f32492c17dc43c9ccea779acb (patch) | |
tree | 1c7ce1e4bba02e5dfb1934313eb36fbd8c422ca6 /libguile/procs.c | |
parent | bf5a05f2a01fee23f5622d1429dc32f4850f98b5 (diff) | |
download | guile-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/procs.c')
-rw-r--r-- | libguile/procs.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/libguile/procs.c b/libguile/procs.c index 6fda200d0..36ee34d48 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -136,7 +136,6 @@ SCM_DEFINE (scm_thunk_p, "thunk?", 1, 0, 0, case scm_tcs_closures: return scm_from_bool (SCM_CLOSURE_NUM_REQUIRED_ARGS (obj) == 0); case scm_tc7_rpsubr: - case scm_tc7_asubr: return SCM_BOOL_T; case scm_tc7_gsubr: return scm_from_bool (SCM_GSUBR_REQ (SCM_GSUBR_TYPE (obj)) == 0); |