extra/obj/alist/alist.factor

   1
   2 USING: arrays sequences ;
   3
   4 IN: obj.alist
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 PREDICATE: alist < sequence [ pair? ] all? ;
   9
  10 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  11