not-a-gopher-url? ( object -- ? ) (original) (raw)
not-a-gopher-url? ( object -- ? )
Vocabulary
gopher
Inputs and outputs
| object | an object |
|---|---|
| ? | a boolean |
Word description
Tests if the object is an instance of the not-a-gopher-url class.
Definition
USING: classes.tuple.private kernel slots.private ;
: not-a-gopher-url? ( object -- ? )
dup tuple?
[ layout-of 7 slot \ not-a-gopher-url eq? ] [ drop f ] if ;