More unit test fixes, load fixes
parent
77c4d97785
commit
b9aa005310
core/generic
extra
furnace/utilities
logging/parser
serialize
tuple-syntax
xmode/tokens
|
@ -144,7 +144,7 @@ M: integer generic-forget-test-1 / ;
|
|||
|
||||
[ t ] [
|
||||
\ / usage [ word? ] filter
|
||||
[ name>> "generic-forget-test-1/integer" = ] contains?
|
||||
[ name>> "integer=>generic-forget-test-1" = ] contains?
|
||||
] unit-test
|
||||
|
||||
[ ] [
|
||||
|
@ -153,7 +153,7 @@ M: integer generic-forget-test-1 / ;
|
|||
|
||||
[ f ] [
|
||||
\ / usage [ word? ] filter
|
||||
[ name>> "generic-forget-test-1/integer" = ] contains?
|
||||
[ name>> "integer=>generic-forget-test-1" = ] contains?
|
||||
] unit-test
|
||||
|
||||
GENERIC: generic-forget-test-2 ( a b -- c )
|
||||
|
@ -162,7 +162,7 @@ M: sequence generic-forget-test-2 = ;
|
|||
|
||||
[ t ] [
|
||||
\ = usage [ word? ] filter
|
||||
[ name>> "generic-forget-test-2/sequence" = ] contains?
|
||||
[ name>> "sequence=>generic-forget-test-2" = ] contains?
|
||||
] unit-test
|
||||
|
||||
[ ] [
|
||||
|
@ -171,7 +171,7 @@ M: sequence generic-forget-test-2 = ;
|
|||
|
||||
[ f ] [
|
||||
\ = usage [ word? ] filter
|
||||
[ name>> "generic-forget-test-2/sequence" = ] contains?
|
||||
[ name>> "sequence=>generic-forget-test-2" = ] contains?
|
||||
] unit-test
|
||||
|
||||
GENERIC: generic-forget-test-3 ( a -- b )
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (c) 2008 Slava Pestov
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: words kernel sequences splitting ;
|
||||
USING: accessors words kernel sequences splitting ;
|
||||
IN: furnace.utilities
|
||||
|
||||
: word>string ( word -- string )
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! 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
|
||||
namespaces combinators combinators.lib logging.server
|
||||
calendar calendar.format ;
|
||||
|
|
|
@ -188,7 +188,7 @@ M: word (serialize) ( obj -- )
|
|||
|
||||
M: wrapper (serialize) ( obj -- )
|
||||
CHAR: W write1
|
||||
wrapped (serialize) ;
|
||||
wrapped>> (serialize) ;
|
||||
|
||||
DEFER: (deserialize) ( -- obj )
|
||||
|
||||
|
@ -239,7 +239,7 @@ SYMBOL: deserialized
|
|||
gensym {
|
||||
[ intern-object ]
|
||||
[ (deserialize) define ]
|
||||
[ (deserialize) swap set-word-props ]
|
||||
[ (deserialize) >>props drop ]
|
||||
[ ]
|
||||
} cleave ;
|
||||
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
USING: kernel sequences slots parser lexer words classes
|
||||
slots.private mirrors ;
|
||||
USING: classes.tuple accessors kernel sequences slots parser
|
||||
lexer words classes slots.private mirrors ;
|
||||
IN: tuple-syntax
|
||||
|
||||
! TUPLE: foo bar baz ;
|
||||
|
@ -7,7 +7,7 @@ IN: tuple-syntax
|
|||
|
||||
: parse-slot-writer ( tuple -- slot# )
|
||||
scan dup "}" = [ 2drop f ] [
|
||||
but-last swap object-slots slot-named slot-spec-offset
|
||||
but-last swap class all-slots slot-named offset>>
|
||||
] if ;
|
||||
|
||||
: parse-slots ( accum tuple -- accum tuple )
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
USING: parser words sequences namespaces kernel assocs
|
||||
USING: accessors parser words sequences namespaces kernel assocs
|
||||
compiler.units ;
|
||||
IN: xmode.tokens
|
||||
|
||||
|
|
Loading…
Reference in New Issue