Simplify

[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                ( )
-    here latest findnfa.from    ( x found? )
-    nip
+    here find nip 0<>           ( found? )
 ;
 
 \ FIXME: use real PARSE-NAME when available