From a48d60b1c01ebaf8c2b42be3ccc04f1c6d11e423 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 6 Mar 2003 12:51:57 +0000 Subject: * 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. --- libguile/procprop.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/procprop.c') 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); -- cgit v1.2.3