diff options
Diffstat (limited to 'share/examples/bootforth')
| -rw-r--r-- | share/examples/bootforth/boot.4th | 6 | ||||
| -rw-r--r-- | share/examples/bootforth/loader.rc | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/share/examples/bootforth/boot.4th b/share/examples/bootforth/boot.4th index 631775b..8f26e0d 100644 --- a/share/examples/bootforth/boot.4th +++ b/share/examples/bootforth/boot.4th @@ -7,15 +7,15 @@ cr .( Loading Forth extensions:) cr .( - screen.4th...) -s" /boot/screen.4th" fopen dup fload fclose +s" /boot/screen.4th" O_RDONLY fopen dup fload fclose \ Load frame support cr .( - frames.4th...) -s" /boot/frames.4th" fopen dup fload fclose +s" /boot/frames.4th" O_RDONLY fopen dup fload fclose \ Load our little menu cr .( - menu.4th...) -s" /boot/menu.4th" fopen dup fload fclose +s" /boot/menu.4th" O_RDONLY fopen dup fload fclose \ Show it cr diff --git a/share/examples/bootforth/loader.rc b/share/examples/bootforth/loader.rc index d216a46..617bc3d 100644 --- a/share/examples/bootforth/loader.rc +++ b/share/examples/bootforth/loader.rc @@ -13,15 +13,15 @@ include /boot/loader.4th \ Load the screen manipulation words cr .( - screen.4th...) -s" /boot/screen.4th" fopen dup fload fclose +s" /boot/screen.4th" O_RDONLY fopen dup fload fclose \ Load frame support cr .( - frames.4th...) -s" /boot/frames.4th" fopen dup fload fclose +s" /boot/frames.4th" O_RDONLY fopen dup fload fclose \ Load our little menu cr .( - menuconf.4th...) -s" /boot/menuconf.4th" fopen dup fload fclose +s" /boot/menuconf.4th" O_RDONLY fopen dup fload fclose \ Initialize loader.4th stuff |
