1list? ( list -- ? )


Vocabulary
lists

Definition
USING: combinators.short-circuit kernel ;

IN: lists

: 1list? ( list -- ? ) { [ nil? not ] [ cdr nil? ] } 1&& ;
inline