sets: make null? use cardinality.

locals-and-roots
John Benediktsson 2016-04-04 21:06:21 -07:00
parent 7468da3cd3
commit 96336d2f6c
1 changed files with 1 additions and 1 deletions

View File

@ -38,7 +38,7 @@ M: f clear-set drop ; inline
M: set ?adjoin 2dup in? [ 2drop f ] [ adjoin t ] if ;
M: set null? members null? ; inline
M: set null? cardinality zero? ; inline
M: set cardinality members length ;