The Lambda Lab
/
projects
/
forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tidying up after refactor.
[forth.jl.git]
/
src
/
lib_6_strings.4th
diff --git
a/src/lib_6_strings.4th
b/src/lib_6_strings.4th
index
56a2174
..
16d8001
100644
(file)
--- a/
src/lib_6_strings.4th
+++ b/
src/lib_6_strings.4th
@@
-45,11
+45,11
@@
0 , ( dummy length - we don't know what it is yet )
BEGIN
0 , ( dummy length - we don't know what it is yet )
BEGIN
- >IN @ #IB @ >= IF \ End of
T
IB?
+ >IN @ #IB @ >= IF \ End of IB?
QUERY-INPUT \ Get next line
THEN
QUERY-INPUT \ Get next line
THEN
- IB >IN @ + @ 1 >IN +! \ Get char from
T
IB
+ IB >IN @ + @ 1 >IN +! \ Get char from IB
DUP [CHAR] " <>
WHILE
DUP [CHAR] " <>
WHILE
@@
-73,11
+73,11
@@
right-paren to the terminal. )
: .(
BEGIN
right-paren to the terminal. )
: .(
BEGIN
- >IN @ #IB @ >= IF \ End of
T
IB?
+ >IN @ #IB @ >= IF \ End of IB?
QUERY-INPUT \ Get next line
THEN
QUERY-INPUT \ Get next line
THEN
- IB >IN @ + @ 1 >IN +! \ Get char from
T
IB
+ IB >IN @ + @ 1 >IN +! \ Get char from IB
DUP [CHAR] ) = IF
DROP ( drop the double quote character )
DUP [CHAR] ) = IF
DROP ( drop the double quote character )