S" FICL_WANT_FILE" ENVIRONMENT? drop [if]

\ **

\ ** File Access words for ficl

\ ** submitted by Larry Hastings, larry@hastings.org

\ **

: r/o 1 ;

: r/w 3 ;

: w/o 2 ;

: bin 8 or ;

: included

r/o bin open-file 0= if

include-file

else

drop

endif

;

: include parse-word included ;

[endif]