projects
/
pforth
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fe6f537
)
Minor tweaks
author
Helmut Eller
<eller.helmut@gmail.com>
Tue, 3 Jan 2017 07:20:06 +0000
(08:20 +0100)
committer
Helmut Eller
<eller.helmut@gmail.com>
Tue, 3 Jan 2017 07:20:06 +0000
(08:20 +0100)
fth/file.fth
patch
|
blob
|
blame
|
history
diff --git
a/fth/file.fth
b/fth/file.fth
index
6b0db20
..
8fe0810
100644
(file)
--- a/
fth/file.fth
+++ b/
fth/file.fth
@@
-68,7
+68,6
@@
create (LINE-TERMINATOR) \n c,
WHILE ( )
refill 0= IF EXIT THEN ( )
REPEAT
WHILE ( )
refill 0= IF EXIT THEN ( )
REPEAT
-
;
}private
;
}private
@@
-123,6
+122,7
@@
create (LINE-TERMINATOR) \n c,
CASE
-1 OF postpone ( ENDOF
0 OF postpone ( ENDOF
CASE
-1 OF postpone ( ENDOF
0 OF postpone ( ENDOF
+ \ for input from files
multi-line-comment
ENDCASE
; immediate
multi-line-comment
ENDCASE
; immediate