version 1.228, 2010/08/20 20:17:28
|
version 1.229, 2010/12/10 14:14:23
|
Line 2733 s" The text I search is here" scan-file
|
Line 2733 s" The text I search is here" scan-file
|
line-buffer max-line fd-in read-line throw |
line-buffer max-line fd-in read-line throw |
while |
while |
line-buffer swap fd-out write-line throw |
line-buffer swap fd-out write-line throw |
repeat ; |
repeat |
|
drop ; |
@end example |
@end example |
@c !! does not handle long lines, no newline at end of file |
@c !! does not handle long lines, no newline at end of file |
|
|
Line 2885 word with @code{compile,}:
|
Line 2886 word with @code{compile,}:
|
@example |
@example |
: foo1 ( n1 n2 -- n ) |
: foo1 ( n1 n2 -- n ) |
[ ' + compile, ] ; |
[ ' + compile, ] ; |
see foo |
see foo1 |
@end example |
@end example |
|
|
This is non-standard, because @code{compile,} has no compilation |
This is non-standard, because @code{compile,} has no compilation |