steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

search all-slots instead

db4
Doug Coleman 2008-09-23 20:34:33 -05:00
parent 2acf8b5847
commit 94ec8c7f78
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/db/tuples/tuples.factor
View File

@ -34,7 +34,7 @@ ERROR: no-slots-named class seq ;
: check-columns ( class columns -- ) : check-columns ( class columns -- )
tuck tuck
[ [ first ] map ] [ [ first ] map ]
[ "slots" word-prop [ name>> ] map ] bi* diff [ all-slots [ name>> ] map ] bi* diff
[ drop ] [ no-slots-named ] if-empty ; [ drop ] [ no-slots-named ] if-empty ;
: define-persistent ( class table columns -- ) : define-persistent ( class table columns -- )