HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
temporarily disable elisp exception tests
[bpt/guile.git]
/
libguile
/
procs.c
diff --git
a/libguile/procs.c
b/libguile/procs.c
index
be9f220
..
08c5c35
100644
(file)
--- a/
libguile/procs.c
+++ b/
libguile/procs.c
@@
-117,10
+117,6
@@
SCM_PRIMITIVE_GENERIC (scm_setter, "setter", 1, 0, 0,
return scm_wta_dispatch_1 (g_scm_setter, proc, SCM_ARG1, FUNC_NAME);
if (SCM_STRUCT_SETTER_P (proc))
return SCM_STRUCT_SETTER (proc);
return scm_wta_dispatch_1 (g_scm_setter, proc, SCM_ARG1, FUNC_NAME);
if (SCM_STRUCT_SETTER_P (proc))
return SCM_STRUCT_SETTER (proc);
- if (SCM_PUREGENERICP (proc)
- && SCM_IS_A_P (proc, scm_class_generic_with_setter))
- /* FIXME: might not be an accessor */
- return SCM_GENERIC_SETTER (proc);
return scm_wta_dispatch_1 (g_scm_setter, proc, SCM_ARG1, FUNC_NAME);
}
#undef FUNC_NAME
return scm_wta_dispatch_1 (g_scm_setter, proc, SCM_ARG1, FUNC_NAME);
}
#undef FUNC_NAME