projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix floating point conversion and printing.
[pforth]
/
fth
/
member.fth
diff --git
a/fth/member.fth
b/fth/member.fth
index
c690dbe
..
160e95f
100644
(file)
--- a/
fth/member.fth
+++ b/
fth/member.fth
@@
-34,7
+34,7
@@
decimal
\r
: FIND.BODY ( -- , pfa true | $name false , look for word in dict. )
\r
\ Return address of parameter data.
\r
\r
: FIND.BODY ( -- , pfa true | $name false , look for word in dict. )
\r
\ Return address of parameter data.
\r
-
32
word find
\r
+
bl
word find
\r
IF >body true
\r
ELSE false
\r
THEN
\r
IF >body true
\r
ELSE false
\r
THEN
\r