remove rpsubrs
authorAndy Wingo <wingo@pobox.com>
Fri, 4 Dec 2009 12:05:00 +0000 (13:05 +0100)
committerAndy Wingo <wingo@pobox.com>
Fri, 4 Dec 2009 12:05:00 +0000 (13:05 +0100)
commit8a1f4f98e121c4ba90eb992203713cf493d45c71
tree16d0f6f376528b6d374a58afebe602087d18ba02
parent31d845b4bc4bf50f32492c17dc43c9ccea779acb
remove rpsubrs

* libguile/tags.h: Remove rpsubrs (I chose to interpret the terse name
  as "recursive predicate subrs"). Just use gsubrs with rest arguments,
  or do a fold yourself.

* libguile/array-map.c (scm_i_array_equal_p): Do the comparison in
  order, why not.

* libguile/chars.c:
* libguile/eq.c:
* libguile/numbers.c:
* libguile/strorder.c: Add 0,2,1 gsubr wrappers for rpsubrs like eq?, <,
  etc.

* 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 rpsubr cases.

* test-suite/tests/numbers.test ("=", "<"): Turn a couple xfails into
  passes.
libguile/array-map.c
libguile/chars.c
libguile/eq.c
libguile/goops.c
libguile/numbers.c
libguile/procprop.c
libguile/procs.c
libguile/strorder.c
libguile/tags.h
libguile/vm.c
test-suite/tests/numbers.test