Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / basis / inverse / inverse.factor

diff --git a/basis/inverse/inverse.factor b/basis/inverse/inverse.factor
index 7a9e821b37740a2ce9a1fdd45a632f2ab7acb678..39a2d5f3dc96f0f0b01de3f8535cf95f1bd5b02a 100755 (executable)
--- a/basis/inverse/inverse.factor
+++ b/basis/inverse/inverse.factor
@@ -248,7 +248,7 @@ DEFER: __
     "predicate" word-prop [ dupd call assure ] curry ;
 
 : slot-readers ( class -- quot )
-    all-slots [ name>> reader-word 1quotation ] map [ cleave ] curry ;
+    class-slots [ name>> reader-word 1quotation ] map [ cleave ] curry ;
 
 : ?wrapped ( object -- wrapped )
     dup wrapper? [ wrapped>> ] when ;