From 6e9235b54bcdfc2cdece438b76d8d114cf5fa322 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Thu, 10 Jun 2010 16:49:59 -0700 Subject: [PATCH] classes.struct: fix some bugs in binary-zero?, add unit tests --- basis/classes/struct/struct-tests.factor | 2 +- basis/classes/struct/struct.factor | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/classes/struct/struct-tests.factor b/basis/classes/struct/struct-tests.factor index 8bdfb8dd57..ed941fed62 100644 --- a/basis/classes/struct/struct-tests.factor +++ b/basis/classes/struct/struct-tests.factor @@ -9,6 +9,7 @@ system tools.test parser lexer eval layouts generic.single classes vocabs ; FROM: math => float ; FROM: specialized-arrays.private => specialized-array-vocab ; +FROM: classes.struct.private => binary-zero? ; QUALIFIED-WITH: alien.c-types c SPECIALIZED-ARRAY: char SPECIALIZED-ARRAY: int @@ -474,4 +475,3 @@ CONSULT: struct-test-delegate struct-test-delegator del>> ; 7 >>a 8 >>b ] unit-test - diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor index c15e21f651..4660f06d58 100644 --- a/basis/classes/struct/struct.factor +++ b/basis/classes/struct/struct.factor @@ -11,6 +11,7 @@ namespaces assocs vocabs.parser math.functions classes.struct.bit-accessors bit-arrays stack-checker.dependencies system layouts ; FROM: delegate.private => group-words slot-group-words ; +FROM: math => float ; QUALIFIED: math IN: classes.struct