diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-03-06 12:51:57 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-03-06 12:51:57 +0000 |
| commit | a48d60b1c01ebaf8c2b42be3ccc04f1c6d11e423 (patch) | |
| tree | 7788e38d18cf6e9d0a491b97798714c1b57f9b28 /oop | |
| parent | 1798b73dc45fb18e57f54b349375520c4de18340 (diff) | |
| download | guile-a48d60b1c01ebaf8c2b42be3ccc04f1c6d11e423.tar.gz | |
* srfi-1.c (scm_init_srfi_1): Extend root module map and for-each
with the versions in this module using
scm_c_extend_primitive_generic.
* goops.scm (equal?): Define default method.
* goops.c (scm_primitive_generic_generic): Enable primitive
generic if not enabled.
(scm_sys_goops_loaded): Setup unextended primitive generics.
* goops.c, goops.h (scm_c_extend_primitive_generic): New function.
* snarf.h (SCM_PRIMITIVE_GENERIC, SCM_PRIMITIVE_GENERIC_1): New
snarf macros.
* numbers.c (scm_abs): Use SCM_PRIMITIVE_GENERIC. (This is only a
testing example. All uses of SCM_GPROC should be converted.)
* procprop.c (scm_stand_in_scm_proc): Use scm_assq instead of
scm_assoc.
* eq.c (scm_equal_p): Turned into a primitive generic.
Diffstat (limited to 'oop')
| -rw-r--r-- | oop/ChangeLog | 4 | ||||
| -rw-r--r-- | oop/goops.scm | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/oop/ChangeLog b/oop/ChangeLog index 932408b35..633b37300 100644 --- a/oop/ChangeLog +++ b/oop/ChangeLog @@ -1,3 +1,7 @@ +2003-03-06 Mikael Djurfeldt <djurfeldt@nada.kth.se> + + * goops.scm (equal?): Define default method. + 2003-01-18 Mikael Djurfeldt <djurfeldt@nada.kth.se> * goops.scm (method): Construct a new copy of the constant '('()) diff --git a/oop/goops.scm b/oop/goops.scm index 2ff6e902b..b769881b6 100644 --- a/oop/goops.scm +++ b/oop/goops.scm @@ -719,6 +719,8 @@ ;;; Methods to compare objects ;;; +(define-method (equal? x y) #f) + (define-method (object-eqv? x y) #f) (define-method (object-equal? x y) (eqv? x y)) |