summaryrefslogtreecommitdiff
path: root/libguile/procprop.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2003-03-06 12:51:57 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2003-03-06 12:51:57 +0000
commita48d60b1c01ebaf8c2b42be3ccc04f1c6d11e423 (patch)
tree7788e38d18cf6e9d0a491b97798714c1b57f9b28 /libguile/procprop.c
parent1798b73dc45fb18e57f54b349375520c4de18340 (diff)
downloadguile-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.c4
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);