diff options
| author | dcs <dcs@FreeBSD.org> | 2000-06-12 16:45:01 +0000 |
|---|---|---|
| committer | dcs <dcs@FreeBSD.org> | 2000-06-12 16:45:01 +0000 |
| commit | 52e5343bd3ec4db95f886666ce4c2e6e6f864ac2 (patch) | |
| tree | 58b17395141fab1791b181d8284b1d83aa1de128 /sys/boot/forth/loader.4th | |
| parent | 87575284dc9c996dac91245e7d6f022c70ac4e04 (diff) | |
| download | FreeBSD-src-52e5343bd3ec4db95f886666ce4c2e6e6f864ac2.zip FreeBSD-src-52e5343bd3ec4db95f886666ce4c2e6e6f864ac2.tar.gz | |
The word environment? returns a flag indicating whether the variable
was found or not. Fix it's usage. Alas, it caused no problem before,
besides leaving garbage in the stack, because refill, used by [if]
[else] [then], was broken.
Diffstat (limited to 'sys/boot/forth/loader.4th')
| -rw-r--r-- | sys/boot/forth/loader.4th | 30 |
1 files changed, 23 insertions, 7 deletions
diff --git a/sys/boot/forth/loader.4th b/sys/boot/forth/loader.4th index 8d5f670..e9369df 100644 --- a/sys/boot/forth/loader.4th +++ b/sys/boot/forth/loader.4th @@ -24,13 +24,29 @@ \ \ $FreeBSD$ -s" arch-alpha" environment? [if] -s" loader_version" environment? 3 < abort" Loader version 0.3+ required" -[then] - -s" arch-i386" environment? [if] -s" loader_version" environment? 8 < abort" Loader version 0.8+ required" -[then] +s" arch-alpha" environment? [if] [if] + s" loader_version" environment? [if] + 3 < [if] + .( Loader version 0.3+ required) cr + abort + [then] + [else] + .( Could not get loader version!) cr + abort + [then] +[then] [then] + +s" arch-i386" environment? [if] [if] + s" loader_version" environment? [if] + 8 < [if] + .( Loader version 0.8+ required) cr + abort + [then] + [else] + .( Could not get loader version!) cr + abort + [then] +[then] [then] include /boot/support.4th |
