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

compiler.cfg: 'basic-block new hashcode' should not throw an exception; fixes tools.deploy.test.11

db4
Slava Pestov 2009-11-16 02:01:28 -06:00
parent b23fa0a0c6
commit e30d275e41
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/cfg.factor
View File

@ -4,7 +4,7 @@ USING: kernel math vectors arrays accessors namespaces ;
IN: compiler.cfg IN: compiler.cfg
TUPLE: basic-block < identity-tuple TUPLE: basic-block < identity-tuple
id { id integer }
number number
{ instructions vector } { instructions vector }
{ successors vector } { successors vector }

10
core/classes/tuple/tuple-tests.factor
View File

@ -6,7 +6,7 @@ io.streams.string kernel kernel.private math math.constants
math.order namespaces parser parser.notes prettyprint math.order namespaces parser parser.notes prettyprint
quotations random see sequences sequences.private slots quotations random see sequences sequences.private slots
slots.private splitting strings summary threads tools.test slots.private splitting strings summary threads tools.test
vectors vocabs words words.symbol ; vectors vocabs words words.symbol fry ;
IN: classes.tuple.tests IN: classes.tuple.tests
TUPLE: rect x y w h ; TUPLE: rect x y w h ;
@ -734,3 +734,11 @@ ERROR: base-error x y ;
ERROR: derived-error < base-error z ; ERROR: derived-error < base-error z ;
[ (( x y z -- * )) ] [ \ derived-error stack-effect ] unit-test [ (( x y z -- * )) ] [ \ derived-error stack-effect ] unit-test
USE: classes.struct
[ { } ] [
classes
[ "prototype" word-prop ] map
[ '[ _ hashcode drop f ] [ drop t ] recover ] filter
] unit-test