diff options
| author | Andy Wingo <wingo@pobox.com> | 2018-04-10 18:35:23 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2018-04-10 18:35:23 +0200 |
| commit | 3073199264bca82d605f5233cdf9c364d6f7b4f7 (patch) | |
| tree | 4a8946f3fdcebbdd5892411ab8269d0c9d148c35 | |
| parent | 954bfad26288f65e4a00a2ab886bd6cdd0fdc743 (diff) | |
Remove class-of opcode
* libguile/vm-engine.c (class-of): Remove unused opcode.
| -rw-r--r-- | libguile/vm-engine.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 59ed35751..48011540d 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -2191,18 +2191,12 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp, VM_DEFINE_OP (110, unused_110, NULL, NOP) VM_DEFINE_OP (111, unused_111, NULL, NOP) VM_DEFINE_OP (112, unused_112, NULL, NOP) + VM_DEFINE_OP (113, unused_113, NULL, NOP) { vm_error_bad_instruction (op); abort (); /* never reached */ } - VM_DEFINE_OP (113, unused_113, NULL, NOP) - { - ARGS1 (obj); - /* FIXME: restore fast path for direct instances. */ - RETURN_EXP (scm_class_of (obj)); - } - /* |