basis/bit-vectors/bit-vectors.factor

   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 ;
   5 IN: bit-vectors
   6
   7 << "bit-vector" create-class-in \ bit-array \ <bit-array> define-vector >>
   8
   9 SYNTAX: ?V{ \ } [ >bit-vector ] parse-literal ;
  10
  11 M: bit-vector contract 2drop ;
  12
  13 { "bit-vectors" "prettyprint" } "bit-vectors.prettyprint" require-when