steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/kernel/kernel.factor
View File

@ -1,6 +1,7 @@
! Copyright (C) 2004, 2008 Slava Pestov. ! Copyright (C) 2004, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! 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 IN: kernel
DEFER: dip DEFER: dip
@ -154,7 +155,6 @@ TUPLE: identity-tuple ;
M: identity-tuple equal? 2drop f ; M: identity-tuple equal? 2drop f ;
USE: math.private
: = ( obj1 obj2 -- ? ) : = ( obj1 obj2 -- ? )
2dup eq? [ 2drop t ] [ 2dup eq? [ 2drop t ] [
2dup both-fixnums? [ 2drop f ] [ equal? ] if 2dup both-fixnums? [ 2drop f ] [ equal? ] if

2
core/vocabs/vocabs.factor
View File

@ -11,7 +11,7 @@ name words
main help main help
source-loaded? docs-loaded? ; source-loaded? docs-loaded? ;
! sources-loaded? slot is one of these two ! sources-loaded? slot is one of these three
SYMBOL: +parsing+ SYMBOL: +parsing+
SYMBOL: +running+ SYMBOL: +running+
SYMBOL: +done+ SYMBOL: +done+