X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/9b95f3ced4f4cc4c7d0ffa59c530a2e1a17a19fc..refs/heads/wip:/libguile/procs.c

diff --git a/libguile/procs.c b/libguile/procs.c
index 1be7fd10c..08c5c355e 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -117,12 +117,7 @@ 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);
-  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);
-  return SCM_BOOL_F; /* not reached */
 }
 #undef FUNC_NAME