From 56a1e8d0447eef00a67c8be7cb7d219132ccd9ff Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 2 Sep 2008 16:01:19 -0500 Subject: [PATCH] fix readers>>, fix tests --- extra/inverse/inverse-tests.factor | 2 +- extra/inverse/inverse.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/inverse/inverse-tests.factor b/extra/inverse/inverse-tests.factor index 3206636ea9..d106b1068a 100644 --- a/extra/inverse/inverse-tests.factor +++ b/extra/inverse/inverse-tests.factor @@ -32,7 +32,7 @@ C: 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 diff --git a/extra/inverse/inverse.factor b/extra/inverse/inverse.factor index 2340442d5b..1e71abf76d 100755 --- a/extra/inverse/inverse.factor +++ b/extra/inverse/inverse.factor @@ -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 )