diff options
Diffstat (limited to 'src/vm_system.c')
-rw-r--r-- | src/vm_system.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vm_system.c b/src/vm_system.c index dc71896dd..5eb125b88 100644 --- a/src/vm_system.c +++ b/src/vm_system.c @@ -208,7 +208,9 @@ VM_DEFINE_INSTRUCTION (list_break, "list-break", 0, 0, 0) VM_DEFINE_INSTRUCTION (object_ref, "object-ref", 1, 0, 1) { - PUSH (OBJECT_REF (FETCH ())); + register objnum = FETCH (); + CHECK_OBJECT (objnum); + PUSH (OBJECT_REF (objnum)); NEXT; } |