From 03cd550b93fa0dea53fbdfb542ea07a68670d517 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 14 Jul 2009 16:11:14 -0500 Subject: [PATCH] Fix codegen test --- basis/compiler/tests/codegen.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/basis/compiler/tests/codegen.factor b/basis/compiler/tests/codegen.factor index 1463dbadb5..8f7bc077b4 100644 --- a/basis/compiler/tests/codegen.factor +++ b/basis/compiler/tests/codegen.factor @@ -316,4 +316,6 @@ M: cucumber equal? "The cucumber has no equal" throw ; [ t ] [ 2 [ 1 swap fixnum< ] compile-call ] unit-test [ 3 ] [ 2 [ 1 swap fixnum< [ 3 ] [ 4 ] if ] compile-call ] unit-test -[ 0 ] [ 101 [ dup fixnum-fast 1 fixnum+fast 20 fixnum-shift-fast 20 fixnum-shift-fast ] compile-call ] unit-test \ No newline at end of file +cell 4 = [ + [ 0 ] [ 101 [ dup fixnum-fast 1 fixnum+fast 20 fixnum-shift-fast 20 fixnum-shift-fast ] compile-call ] unit-test +] when \ No newline at end of file