utils.f

   1 REQUIRE { lib/ext/locals.f
   2 REQUIRE CEQUAL ~pinka/spf/string-equal.f
   3
   4 : EMPTY? ( a u -- ) NIP 0= ;
   5
   6 : STARTS-WITH? { a1 u1 a2 u2 -- ? }
   7   u1 u2 < IF FALSE EXIT THEN
   8   a1 u2 a2 u2 CEQUAL ;