Paste: parse-lines

Author: mrjbq7
Mode: factor
Date: Wed, 2 Sep 2009 13:39:26
Plain Text |
 
 : parse-lines ( lines -- quot )
    dup length 0 > [ dup first "#!" head? [ 1 tail ] when ] when
     lexer-factory get call( lines -- lexer ) (parse-lines) ;

New Annotation

Summary:
Author:
Mode:
Body: