diff options
| author | Daniel C. Sobral <dcs@FreeBSD.org> | 2000-10-09 11:29:40 +0000 |
|---|---|---|
| committer | Daniel C. Sobral <dcs@FreeBSD.org> | 2000-10-09 11:29:40 +0000 |
| commit | 3851401454c2c52851c34fd0a416290a592c900b (patch) | |
| tree | 389d161d57f493c82b926950366c259f7732a6de /sys/boot/forth/loader.4th | |
| parent | 733c8d0bf2cf9a0a3cd2e82690534764e89bcb73 (diff) | |
Notes
Diffstat (limited to 'sys/boot/forth/loader.4th')
| -rw-r--r-- | sys/boot/forth/loader.4th | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/sys/boot/forth/loader.4th b/sys/boot/forth/loader.4th index 51bfc92f9adc..f002c0774e82 100644 --- a/sys/boot/forth/loader.4th +++ b/sys/boot/forth/loader.4th @@ -65,17 +65,19 @@ only forth also support-functions also builtins definitions c@ [char] - <> if 0 1 unload drop else - s" kernelname" getenv? 0= if ( no kernel has been loaded ) - load_kernel_and_modules - ?dup if exit then + s" kernelname" getenv? if ( a kernel has been loaded ) + 1 boot exit then + load_kernel_and_modules + ?dup if exit then 0 1 boot exit then else - s" kernelname" getenv? 0= if ( no kernel has been loaded ) - load_kernel_and_modules - ?dup if exit then + s" kernelname" getenv? if ( a kernel has been loaded ) + 1 boot exit then + load_kernel_and_modules + ?dup if exit then 0 1 boot exit then load_kernel_and_modules |