Fix two small typos

db4
Slava Pestov 2009-01-27 05:05:46 -06:00
parent ec3013c39b
commit 7780c5d983
2 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -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+