From 2bfa20446a88adb3e7f1fe32c5d43887ee8ac045 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 22 Mar 2013 09:19:36 -0700 Subject: [PATCH] vm: use ctx->push since unbox_array_size needs to peek at the stack. --- vm/io.cpp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/vm/io.cpp b/vm/io.cpp index 6130490243..7de1e91c7d 100755 --- a/vm/io.cpp +++ b/vm/io.cpp @@ -205,19 +205,19 @@ void factor_vm::primitive_fgetc() void factor_vm::primitive_fread() { FILE *file = pop_file_handle(); - void *buf = (void*)alien_offset(ctx->peek()); + void *buf = (void*)alien_offset(ctx->pop()); fixnum size = unbox_array_size(); if(size == 0) { - ctx->replace(from_unsigned_cell(0)); + ctx->push(from_unsigned_cell(0)); return; } size_t c = safe_fread(buf,1,size,file); if(c == 0 || feof(file)) clearerr(file); - ctx->replace(from_unsigned_cell(c)); + ctx->push(from_unsigned_cell(c)); } void factor_vm::primitive_fputc()