basis/bit-vectors/bit-vectors.factor

   1 ! Copyright (C) 2008, 2009 Slava Pestov.\r
   2 ! See http://factorcode.org/license.txt for BSD license.\r
   3 USING: arrays kernel kernel.private math sequences\r
   4 sequences.private growable bit-arrays prettyprint.custom\r
   5 parser accessors vectors.functor classes.parser ;\r
   6 IN: bit-vectors\r
   7 \r
   8 << "bit-vector" create-class-in \ bit-array \ <bit-array> define-vector >>\r
   9 \r
  10 SYNTAX: ?V{ \ } [ >bit-vector ] parse-literal ;\r
  11 \r
  12 M: bit-vector contract 2drop ;\r
  13 M: bit-vector >pprint-sequence ;\r
  14 M: bit-vector pprint-delims drop \ ?V{ \ } ;\r
  15 M: bit-vector pprint* pprint-object ;\r