Return to filedump.fs CVS log | Up to [gforth] / gforth |
version 1.10, 2003/08/25 14:17:44 | version 1.11, 2004/01/25 19:35:13 |
---|---|
Line 32 Create buf $10 allot | Line 32 Create buf $10 allot |
r> close-file throw ; | r> close-file throw ; |
script? [IF] | script? [IF] |
: alldump argc @ 2 ?DO I arg 2dup type ." :" filedump LOOP ; | : alldump argc @ 1 ?DO I arg 2dup type ." :" filedump LOOP ; |
alldump bye | alldump bye |
[THEN] | [THEN] |