summary |
tags |
clone url |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
5a30561)
* fth/require.fth (INCLUDED?): What was I thinking? Just use FIND
instead of exotic stuff like FINDNFA.FROM.
* fth/loadp4th.fth: Restore filefind.fth to its original position.
include? [if] condcomp.fth
include? save-input save-input.fth
include? read-line file.fth
include? [if] condcomp.fth
include? save-input save-input.fth
include? read-line file.fth
-include? file? filefind.fth
include? require require.fth
\ load floating point support if basic support is in kernel
include? require require.fth
\ load floating point support if basic support is in kernel
include? task-member.fth member.fth
include? :struct c_struct.fth
include? smif{ smart_if.fth
include? task-member.fth member.fth
include? :struct c_struct.fth
include? smif{ smart_if.fth
+include? file? filefind.fth
include? see see.fth
include? words.like wordslik.fth
include? trace trace.fth
include? see see.fth
include? words.like wordslik.fth
include? trace trace.fth
: 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