Fix two small typos
parent
ec3013c39b
commit
7780c5d983
|
@ -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
|
||||
|
|
|
@ -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+
|
||||
|
|
Loading…
Reference in New Issue