extra/sequences/frozen/frozen.factor

   1 ! Copyright (C) 2009 John Benediktsson
   2 ! See https://factorcode.org/license.txt for BSD license
   3 USING: accessors sequences ;
   4 IN: sequences.frozen
   5
   6 TUPLE: frozen { seq read-only } ;
   7
   8 C: <frozen> frozen
   9
  10 M: frozen virtual@ seq>> ;
  11
  12 M: frozen virtual-exemplar seq>> ;
  13
  14 M: frozen length seq>> length ;
  15
  16 INSTANCE: frozen virtual-sequence
  17
  18 INSTANCE: frozen immutable-sequence