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 #64 from stutonk/header_size_fix
[pforth]
/
fth
/
require.fth
diff --git
a/fth/require.fth
b/fth/require.fth
index
c18d8c4
..
18a060a
100644
(file)
--- a/
fth/require.fth
+++ b/
fth/require.fth
@@
-20,8
+20,7
@@
private{
: INCLUDED? ( c-addr u -- flag )
s" ::::" here place ( c-addr u )
here $append ( )
: INCLUDED? ( c-addr u -- flag )
s" ::::" here place ( c-addr u )
here $append ( )
- here latest findnfa.from ( x found? )
- nip
+ here find nip 0<> ( found? )
;
\ FIXME: use real PARSE-NAME when available
;
\ FIXME: use real PARSE-NAME when available