fix readers>>, fix tests

db4
Doug Coleman 2008-09-02 16:01:19 -05:00
parent 13722dd4a8
commit 56a1e8d044
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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 )