CREATE from.txt \ Leo Wong 3 April 02003 fyj + \ [undefined] floating? from from.txt \ Include a file if its name isn't in the dictionary : from ( ? -- ? ) \ from ( in the current directory ) BL WORD FIND IF DROP ELSE COUNT INCLUDED THEN ; : [UNDEFINED] ( -- flag ) \ Usage: [UNDEFINED] BL WORD FIND NIP 0= ; IMMEDIATE : floating? S" FLOATING" ENVIRONMENT? ;