projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
V25 with 64-bit support
[pforth]
/
fth
/
strings.fth
diff --git
a/fth/strings.fth
b/fth/strings.fth
index
ff0fc91
..
8bead25
100644
(file)
--- a/
fth/strings.fth
+++ b/
fth/strings.fth
@@
-24,7
+24,7
@@
ANEW TASK-STRINGS.FTH
2+ * even-up allot
\r
DOES> ( index -- $addr )
\r
dup @ ( get #chars )
\r
2+ * even-up allot
\r
DOES> ( index -- $addr )
\r
dup @ ( get #chars )
\r
- rot * +
4
+
\r
+ rot * +
cell
+
\r
;
\r
\r
\ Compare two strings
\r
;
\r
\r
\ Compare two strings
\r