new accessors

2008-08-30 12:42:59 -05:00 · 2008-08-30 12:42:59 -05:00 · e0cd127062
parent 9760f3dc58
commit e0cd127062
1 changed files with 1 additions and 1 deletions
--- a/extra/db/types/types.factor
+++ b/extra/db/types/types.factor
@ -143,7 +143,7 @@ HOOK: bind# db ( spec obj -- )

 : offset-of-slot ( str obj -- n )
    class superclasses [ "slots" word-prop ] map concat
-    slot-named slot-spec-offset ;
+    slot-named offset>> ;

 : get-slot-named ( name obj -- value )
    tuck offset-of-slot slot ;