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.c16
1 files changed, 0 insertions, 16 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index 6d32a6ccd..d7523ccb2 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -766,11 +766,6 @@ VM_DEFINE_INSTRUCTION (53, call, "call", 1, -1, 1)
sp[-nargs] = SCM_STRUCT_PROCEDURE (x);
goto vm_call;
}
- else if (SCM_PROCEDURE_WITH_SETTER_P (x))
- {
- sp[-nargs] = SCM_PROCEDURE (x);
- goto vm_call;
- }
/*
* Other interpreted or compiled call
*/
@@ -850,12 +845,6 @@ VM_DEFINE_INSTRUCTION (54, goto_args, "goto/args", 1, -1, 1)
sp[-nargs] = SCM_STRUCT_PROCEDURE (x);
goto vm_goto_args;
}
- else if (SCM_PROCEDURE_WITH_SETTER_P (x))
- {
- sp[-nargs] = SCM_PROCEDURE (x);
- goto vm_goto_args;
- }
-
/*
* Other interpreted or compiled call
*/
@@ -943,11 +932,6 @@ VM_DEFINE_INSTRUCTION (57, mv_call, "mv-call", 4, -1, 1)
sp[-nargs] = SCM_STRUCT_PROCEDURE (x);
goto vm_mv_call;
}
- else if (SCM_PROCEDURE_WITH_SETTER_P (x))
- {
- sp[-nargs] = SCM_PROCEDURE (x);
- goto vm_mv_call;
- }
/*
* Other interpreted or compiled call
*/