summaryrefslogtreecommitdiff
path: root/src/vm_system.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/vm_system.c')
-rw-r--r--src/vm_system.c4
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;
}