fix readers>>, fix tests
parent
13722dd4a8
commit
56a1e8d044
|
@ -32,7 +32,7 @@ C: <foo> foo
|
|||
: f>c ( *fahrenheit -- *celsius )
|
||||
32 - 1.8 / ;
|
||||
|
||||
[ { 212 32 } ] [ { 100 0 } [ [ f>c ] map ] undo ] unit-test
|
||||
[ { 212.0 32.0 } ] [ { 100 0 } [ [ f>c ] map ] undo ] unit-test
|
||||
[ { t t f } ] [ { t f 1 } [ [ >boolean ] matches? ] map ] unit-test
|
||||
[ { t f } ] [ { { 1 2 3 } 4 } [ [ >array ] matches? ] map ] unit-test
|
||||
[ 9 9 ] [ 3 [ 1/2 ^ ] undo 3 [ sqrt ] undo ] unit-test
|
||||
|
|
|
@ -208,7 +208,7 @@ DEFER: _
|
|||
|
||||
: slot-readers ( class -- quot )
|
||||
all-slots rest ! tail gets rid of delegate
|
||||
[ reader>> 1quotation [ keep ] curry ] map concat
|
||||
[ name>> reader-word 1quotation [ keep ] curry ] map concat
|
||||
[ ] like [ drop ] compose ;
|
||||
|
||||
: ?wrapped ( object -- wrapped )
|
||||
|
|
Loading…
Reference in New Issue