1 ! Copyright (C) 2008, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: bit-arrays classes.parser growable kernel parser
4 vectors.functor vocabs.loader ;
7 << "bit-vector" create-class-in \ bit-array \ <bit-array> define-vector >>
9 SYNTAX: ?V{ \ } [ >bit-vector ] parse-literal ;
11 M: bit-vector contract 2drop ;
13 USE-WHEN-LOADED: bit-vectors.prettyprint { "bit-vectors" "prettyprint" }