Changeset 173 for trunk/thune/boot.c

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/boot.c

    r172 r173  
    4444  "[string! swap make] proc :to-string\n" 
    4545  "[context! swap make] proc :context\n" 
    46   "[read to-block urlan-ops infuse] proc :load\n" 
     46  "[\n" 
     47  "  read\n" 
     48  "  dup first '#' eq? ift (eol find)\n" 
     49  "  to-block urlan-ops infuse\n" 
     50  "] proc :load    ;(filename -- block)\n" 
    4751  "[select do] proc :case\n" 
    4852  "[\n"