From bf1f504459b39b3f6246848a1fe738b25e808654 Mon Sep 17 00:00:00 2001 From: scottl Date: Mon, 27 Oct 2003 16:39:49 +0000 Subject: Directly call the 'boot' word instead of indirectly evaluating it. Submitted by: dcs --- sys/boot/forth/beastie.4th | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'sys/boot') diff --git a/sys/boot/forth/beastie.4th b/sys/boot/forth/beastie.4th index 7fa2043..90aeeec 100644 --- a/sys/boot/forth/beastie.4th +++ b/sys/boot/forth/beastie.4th @@ -209,9 +209,9 @@ set-current dup tkey 0 25 at-xy dup 32 = if nip 0 swap then - dup -1 = if s" boot" evaluate then - dup 13 = if s" boot" evaluate then - dup bootkey @ = if s" boot" evaluate then + dup -1 = if 0 boot then + dup 13 = if 0 boot then + dup bootkey @ = if 0 boot then dup bootacpikey @ = if acpienabled? if s" acpi_load" unsetenv @@ -221,7 +221,7 @@ set-current s" YES" s" acpi_load" setenv s" 0" s" hint.acpi.0.disabled" setenv then - s" boot" evaluate + 0 boot then dup bootsafekey @ = if s" arch-i386" environment? if @@ -233,15 +233,15 @@ set-current s" 0" s" hw.ata.atapi_dma" setenv s" 0" s" hw.ata.wc" setenv s" 0" s" hw.eisa_slots" setenv - s" boot" evaluate + 0 boot then dup bootverbosekey @ = if s" YES" s" boot_verbose" setenv - s" boot" evaluate + 0 boot then dup bootsinglekey @ = if s" YES" s" boot_single" setenv - s" boot" evaluate + 0 boot then dup escapekey @ = if 2drop -- cgit v1.1