projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge pull request #32 from ellerh/multi-line-comment
[pforth]
/
fth
/
file.fth
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