search all-slots instead

2008-09-23 20:34:33 -05:00 · 2008-09-23 20:34:33 -05:00 · 94ec8c7f78
parent 2acf8b5847
commit 94ec8c7f78
1 changed files with 1 additions and 1 deletions
--- a/basis/db/tuples/tuples.factor
+++ b/basis/db/tuples/tuples.factor
@ -34,7 +34,7 @@ ERROR: no-slots-named class seq ;
 : check-columns ( class columns -- )
    tuck
    [ [ first ] map ]
-    [ "slots" word-prop [ name>> ] map ] bi* diff
+    [ all-slots [ name>> ] map ] bi* diff
    [ drop ] [ no-slots-named ] if-empty ;

 : define-persistent ( class table columns -- )