diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor index a8f9281760..be1de76650 100644 --- a/core/kernel/kernel.factor +++ b/core/kernel/kernel.factor @@ -1,6 +1,7 @@ ! Copyright (C) 2004, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: kernel.private slots.private classes.tuple.private ; +USING: kernel.private slots.private math.private +classes.tuple.private ; IN: kernel DEFER: dip @@ -154,7 +155,6 @@ TUPLE: identity-tuple ; M: identity-tuple equal? 2drop f ; -USE: math.private : = ( obj1 obj2 -- ? ) 2dup eq? [ 2drop t ] [ 2dup both-fixnums? [ 2drop f ] [ equal? ] if diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor index 13f79b04ec..fb9ce54672 100644 --- a/core/vocabs/vocabs.factor +++ b/core/vocabs/vocabs.factor @@ -11,7 +11,7 @@ name words main help source-loaded? docs-loaded? ; -! sources-loaded? slot is one of these two +! sources-loaded? slot is one of these three SYMBOL: +parsing+ SYMBOL: +running+ SYMBOL: +done+