Now I see the error of my ways.

Previous revision of this file changed the "boot" commands to take
no arguments from the stack. This is only valid in the case where
a kernel has not been loaded. In that case, load_kernel_and_modules
will be called, which takes a list of arguments from the stack.

When a kernel is presently loaded, though, the list of arguments must
be passed to the boot command, which was the behaviour before the last
revision.

Fix things for both cases.

Noticed by: S-Max and others on that chat room
This commit is contained in:
Daniel C. Sobral 2000-10-09 11:29:40 +00:00
parent 733c8d0bf2
commit 3851401454
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=66871

View File

@ -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