1list? ( list -- ? )

Vocabulary

lists

Inputs

list

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel ;

IN: lists

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