Simplify lazy-append nil? word

lazy-append tuples are always built using lappend. If list1 is nil, then
list2 is returned, hence nil? on a lazy-append object is always false.
db4
Samuel Tardieu 2007-12-27 03:42:19 +01:00
parent 0bf5c6bf0f
commit 76c76b81ed
1 changed files with 1 additions and 5 deletions

View File

@ -310,11 +310,7 @@ M: lazy-append cdr ( lazy-append -- cdr )
lazy-append-list2 lappend ;
M: lazy-append nil? ( lazy-append -- bool )
dup lazy-append-list1 nil? [
lazy-append-list2 nil?
] [
drop f
] if ;
drop f ;
M: lazy-append list? ( object -- bool )
drop t ;