unmaintained/lisp/lexer/lexer.factor

   1
   2 USING: kernel parser generic math sequences strings ;
   3
   4 IN: lisp.lexer
   5
   6 TUPLE: sexp-lexer ;
   7
   8 : <sexp-lexer> ( text -- lexer )
   9     <lexer> sexp-lexer construct-delegate ;
  10
  11 M: sexp-lexer skip-word ( lexer -- )
  12 [ 2dup nth "\"()" member?
  13   [ drop 1+ ] [ [ dup blank? swap ")" member? or ] skip ] if ] change-column ;