From 82f9f21a501f32e58a79e895328666f886bb6d7b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 7 Jun 2014 12:16:43 -0700
Subject: [PATCH] vm: change some push/pop to replace/peek.

---
 vm/math.cpp    | 10 +++++-----
 vm/objects.cpp |  2 +-
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/vm/math.cpp b/vm/math.cpp
index 45b5e71106..dc0972933d 100644
--- a/vm/math.cpp
+++ b/vm/math.cpp
@@ -263,22 +263,22 @@ void factor_vm::primitive_float_greatereq() {
 
 /* Allocates memory */
 void factor_vm::primitive_float_bits() {
-  ctx->push(
-      from_unsigned_cell(float_bits((float)untag_float_check(ctx->pop()))));
+  ctx->replace(
+      from_unsigned_cell(float_bits((float)untag_float_check(ctx->peek()))));
 }
 
 /* Allocates memory */
 void factor_vm::primitive_bits_float() {
-  ctx->push(allot_float(bits_float((uint32_t)to_cell(ctx->pop()))));
+  ctx->replace(allot_float(bits_float((uint32_t)to_cell(ctx->peek()))));
 }
 
 void factor_vm::primitive_double_bits() {
-  ctx->push(from_unsigned_8(double_bits(untag_float_check(ctx->pop()))));
+  ctx->replace(from_unsigned_8(double_bits(untag_float_check(ctx->peek()))));
 }
 
 /* Allocates memory */
 void factor_vm::primitive_bits_double() {
-  ctx->push(allot_float(bits_double(to_unsigned_8(ctx->pop()))));
+  ctx->replace(allot_float(bits_double(to_unsigned_8(ctx->peek()))));
 }
 
 /* Cannot allocate. */
diff --git a/vm/objects.cpp b/vm/objects.cpp
index 819c33cd83..587f4592cb 100644
--- a/vm/objects.cpp
+++ b/vm/objects.cpp
@@ -69,7 +69,7 @@ cell factor_vm::object_size(cell tagged) {
 
 /* Allocates memory */
 void factor_vm::primitive_size() {
-  ctx->push(from_unsigned_cell(object_size(ctx->pop())));
+  ctx->replace(from_unsigned_cell(object_size(ctx->peek())));
 }
 
 struct slot_become_fixup : no_fixup {