From bd629c12622303d543c0ab338d7e9e0d1c5e967b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 30 Aug 2009 18:57:45 -0500 Subject: [PATCH] compiler/tests/codegen.factor: don't do exact float comparison --- basis/compiler/tests/codegen.factor | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/basis/compiler/tests/codegen.factor b/basis/compiler/tests/codegen.factor index 5155d13e99..0fb2dca5b9 100644 --- a/basis/compiler/tests/codegen.factor +++ b/basis/compiler/tests/codegen.factor @@ -3,7 +3,7 @@ math hashtables.private math.private namespaces sequences tools.test namespaces.private slots.private sequences.private byte-arrays alien alien.accessors layouts words definitions compiler.units io combinators vectors grouping make alien.c-types combinators.short-circuit -math.order math.libm ; +math.order math.libm math.parser ; QUALIFIED: namespaces.private IN: compiler.tests.codegen @@ -409,7 +409,7 @@ cell 4 = [ [ ] [ missing-gc-check-2 ] unit-test -[ 1 0.169967142900241 ] [ 1.4 [ 1 swap fcos ] compile-call ] unit-test -[ 1 0.169967142900241 ] [ 1.4 1 [ swap fcos ] compile-call ] unit-test -[ 0.169967142900241 0.9854497299884601 ] [ 1.4 [ [ fcos ] [ fsin ] bi ] compile-call ] unit-test -[ 1 0.169967142900241 0.9854497299884601 ] [ 1.4 1 [ swap >float [ fcos ] [ fsin ] bi ] compile-call ] unit-test \ No newline at end of file +[ 1 "0.169967142900241" ] [ 1.4 [ 1 swap fcos ] compile-call number>string ] unit-test +[ 1 "0.169967142900241" ] [ 1.4 1 [ swap fcos ] compile-call number>string ] unit-test +[ "0.169967142900241" "0.9854497299884601" ] [ 1.4 [ [ fcos ] [ fsin ] bi ] compile-call [ number>string ] bi@ ] unit-test +[ 1 "0.169967142900241" "0.9854497299884601" ] [ 1.4 1 [ swap >float [ fcos ] [ fsin ] bi ] compile-call [ number>string ] bi@ ] unit-test \ No newline at end of file