diff options
Diffstat (limited to 'stand/forth/support.4th')
| -rw-r--r-- | stand/forth/support.4th | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/stand/forth/support.4th b/stand/forth/support.4th index 64c71e12ec26..e6addfbdf7bb 100644 --- a/stand/forth/support.4th +++ b/stand/forth/support.4th @@ -1057,8 +1057,16 @@ string current_file_name_ref \ used to print the file name ; : include_nextboot_file ( -- ) - get_nextboot_conf_file - ['] peek_file catch if 2drop then + s" nextboot_enable" getenv dup -1 <> if + 2dup s' "YES"' compare >r + 2dup s' "yes"' compare >r + 2dup s" YES" compare >r + 2dup s" yes" compare r> r> r> and and and 0= to nextboot? + else + drop + get_nextboot_conf_file + ['] peek_file catch if 2drop then + then nextboot? if get_nextboot_conf_file current_file_name_ref strref @@ -1066,6 +1074,7 @@ string current_file_name_ref \ used to print the file name process_conf_errors ['] rewrite_nextboot_file catch if 2drop then then + s' "NO"' s" nextboot_enable" setenv ; \ Module loading functions |