forth: File Access word set (in-memory backing, Hayes unchanged)

lib/forth/runtime.sx

@@ -24,6 +24,9 @@
       (dict-set! s "mem" (dict))
       (dict-set! s "here" 0)
       (dict-set! s "hold" (list))
+      (dict-set! s "files" (dict))
+      (dict-set! s "by-path" (dict))
+      (dict-set! s "next-fileid" 1)
       s)))
 
 (define
@@ -735,10 +738,6 @@
       state
       "HEX"
       (fn (s) (dict-set! (get s "vars") "base" 16)))
-    (forth-def-prim!
-      state
-      "BIN"
-      (fn (s) (dict-set! (get s "vars") "base" 2)))
     (forth-def-prim!
       state
       "OCTAL"