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 /libguile/procprop.c | |
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 'libguile/procprop.c')
-rw-r--r-- | libguile/procprop.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c index f7887ed55..8dddc639c 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1998,2000,2001 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1998,2000,2001, 2003 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -160,7 +160,7 @@ static SCM scm_stand_in_scm_proc(SCM proc) { SCM answer; - answer = scm_assoc (proc, scm_stand_in_procs); + answer = scm_assq (proc, scm_stand_in_procs); if (SCM_FALSEP (answer)) { answer = scm_closure (scm_list_2 (SCM_EOL, SCM_BOOL_F), SCM_EOL); |