ref: 7393a9a5e8453bbc7c8b767a6af41b463a9ca34a
parent: 893452dfa012ebff43e5358688ee9adccc09c929
author: asau <asau@ficl.sf.net>
date: Thu Aug 12 08:49:40 CDT 2010
Merging FICL 4.0.31.
--- a/softwords/fileaccess.fr
+++ /dev/null
@@ -1,24 +1,0 @@
-\ #if FICL_WANT_FILE
-\ **
-\ ** 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
- locals| f | end-locals
- f include-file
- f close-file drop
- else
- drop
- endif
- ;
-
-: include parse-word included ; immediate
-
-\ #endif