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

More unit test fixes, load fixes

db4
Slava Pestov 2008-06-30 05:13:50 -05:00
parent 77c4d97785
commit b9aa005310
6 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/generic/generic-tests.factor
View File

@ -144,7 +144,7 @@ M: integer generic-forget-test-1 / ;
[ t ] [ [ t ] [
\ / usage [ word? ] filter \ / usage [ word? ] filter
[ name>> "generic-forget-test-1/integer" = ] contains? [ name>> "integer=>generic-forget-test-1" = ] contains?
] unit-test ] unit-test
[ ] [ [ ] [
@ -153,7 +153,7 @@ M: integer generic-forget-test-1 / ;
[ f ] [ [ f ] [
\ / usage [ word? ] filter \ / usage [ word? ] filter
[ name>> "generic-forget-test-1/integer" = ] contains? [ name>> "integer=>generic-forget-test-1" = ] contains?
] unit-test ] unit-test
GENERIC: generic-forget-test-2 ( a b -- c ) GENERIC: generic-forget-test-2 ( a b -- c )
@ -162,7 +162,7 @@ M: sequence generic-forget-test-2 = ;
[ t ] [ [ t ] [
\ = usage [ word? ] filter \ = usage [ word? ] filter
[ name>> "generic-forget-test-2/sequence" = ] contains? [ name>> "sequence=>generic-forget-test-2" = ] contains?
] unit-test ] unit-test
[ ] [ [ ] [
@ -171,7 +171,7 @@ M: sequence generic-forget-test-2 = ;
[ f ] [ [ f ] [
\ = usage [ word? ] filter \ = usage [ word? ] filter
[ name>> "generic-forget-test-2/sequence" = ] contains? [ name>> "sequence=>generic-forget-test-2" = ] contains?
] unit-test ] unit-test
GENERIC: generic-forget-test-3 ( a -- b ) GENERIC: generic-forget-test-3 ( a -- b )

2
extra/furnace/utilities/utilities.factor
View File

@ -1,6 +1,6 @@
! Copyright (c) 2008 Slava Pestov ! Copyright (c) 2008 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: words kernel sequences splitting ; USING: accessors words kernel sequences splitting ;
IN: furnace.utilities IN: furnace.utilities
: word>string ( word -- string ) : word>string ( word -- string )

2
extra/logging/parser/parser.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: parser-combinators memoize kernel sequences USING: accessors parser-combinators memoize kernel sequences
logging arrays words strings vectors io io.files logging arrays words strings vectors io io.files
namespaces combinators combinators.lib logging.server namespaces combinators combinators.lib logging.server
calendar calendar.format ; calendar calendar.format ;

4
extra/serialize/serialize.factor
View File

@ -188,7 +188,7 @@ M: word (serialize) ( obj -- )
M: wrapper (serialize) ( obj -- ) M: wrapper (serialize) ( obj -- )
CHAR: W write1 CHAR: W write1
wrapped (serialize) ; wrapped>> (serialize) ;
DEFER: (deserialize) ( -- obj ) DEFER: (deserialize) ( -- obj )
@ -239,7 +239,7 @@ SYMBOL: deserialized
gensym { gensym {
[ intern-object ] [ intern-object ]
[ (deserialize) define ] [ (deserialize) define ]
[ (deserialize) swap set-word-props ] [ (deserialize) >>props drop ]
[ ] [ ]
} cleave ; } cleave ;

6
extra/tuple-syntax/tuple-syntax.factor
View File

@ -1,5 +1,5 @@
USING: kernel sequences slots parser lexer words classes USING: classes.tuple accessors kernel sequences slots parser
slots.private mirrors ; lexer words classes slots.private mirrors ;
IN: tuple-syntax IN: tuple-syntax
! TUPLE: foo bar baz ; ! TUPLE: foo bar baz ;
@ -7,7 +7,7 @@ IN: tuple-syntax
: parse-slot-writer ( tuple -- slot# ) : parse-slot-writer ( tuple -- slot# )
scan dup "}" = [ 2drop f ] [ scan dup "}" = [ 2drop f ] [
but-last swap object-slots slot-named slot-spec-offset but-last swap class all-slots slot-named offset>>
] if ; ] if ;
: parse-slots ( accum tuple -- accum tuple ) : parse-slots ( accum tuple -- accum tuple )

2
extra/xmode/tokens/tokens.factor
View File

@ -1,4 +1,4 @@
USING: parser words sequences namespaces kernel assocs USING: accessors parser words sequences namespaces kernel assocs
compiler.units ; compiler.units ;
IN: xmode.tokens IN: xmode.tokens