Changeset 173 for trunk/thune/mkboot.t

Show
Ignore:
Timestamp:
06/08/06 03:36:03 (3 years ago)
Author:
krobillard
Message:

Thune - 'load now skips the first line if it is a shell interpreter command.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/thune/mkboot.t

    r172 r173  
     1#!./thune 
    12 
    23{ 
    … …  
    4546[string! swap make] proc :to-string 
    4647[context! swap make] proc :context 
    47 [read to-block urlan-ops infuse] proc :load 
     48 
     49[ 
     50  read 
     51  dup first '#' eq? ift (eol find) 
     52  to-block urlan-ops infuse 
     53] proc :load    ;(filename -- block) 
     54 
    4855[select do] proc :case 
    4956