summaryrefslogtreecommitdiff
path: root/libguile/vm-i-system.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r--libguile/vm-i-system.c33
1 files changed, 0 insertions, 33 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index 59a5520f7..1f376ab70 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -766,17 +766,6 @@ VM_DEFINE_INSTRUCTION (53, call, "call", 1, -1, 1)
sp[-nargs] = SCM_STRUCT_PROCEDURE (x);
goto vm_call;
}
- if (SCM_STRUCTP (x) && SCM_OBJ_CLASS_FLAGS (x) & SCM_CLASSF_PURE_GENERIC)
- {
- SCM args = SCM_EOL;
- int n = nargs;
- SCM* walk = sp;
- SYNC_REGISTER ();
- while (n--)
- args = scm_cons (*walk--, args);
- *walk = scm_mcache_compute_cmethod (SCM_GENERIC_METHOD_CACHE (x), args);
- goto vm_call;
- }
/*
* Other interpreted or compiled call
*/
@@ -855,17 +844,6 @@ VM_DEFINE_INSTRUCTION (54, goto_args, "goto/args", 1, -1, 1)
sp[-nargs] = SCM_STRUCT_PROCEDURE (x);
goto vm_goto_args;
}
- if (SCM_STRUCTP (x) && SCM_OBJ_CLASS_FLAGS (x) & SCM_CLASSF_PURE_GENERIC)
- {
- SCM args = SCM_EOL;
- int n = nargs;
- SCM* walk = sp;
- SYNC_REGISTER ();
- while (n--)
- args = scm_cons (*walk--, args);
- *walk = scm_mcache_compute_cmethod (SCM_GENERIC_METHOD_CACHE (x), args);
- goto vm_goto_args;
- }
/*
* Other interpreted or compiled call
@@ -952,17 +930,6 @@ VM_DEFINE_INSTRUCTION (57, mv_call, "mv-call", 4, -1, 1)
sp[-nargs] = SCM_STRUCT_PROCEDURE (x);
goto vm_mv_call;
}
- if (SCM_STRUCTP (x) && SCM_OBJ_CLASS_FLAGS (x) & SCM_CLASSF_PURE_GENERIC)
- {
- SCM args = SCM_EOL;
- int n = nargs;
- SCM* walk = sp;
- SYNC_REGISTER ();
- while (n--)
- args = scm_cons (*walk--, args);
- *walk = scm_mcache_compute_cmethod (SCM_GENERIC_METHOD_CACHE (x), args);
- goto vm_mv_call;
- }
/*
* Other interpreted or compiled call
*/