summaryrefslogtreecommitdiffstats
path: root/sys/boot/forth
diff options
context:
space:
mode:
authordteske <dteske@FreeBSD.org>2015-04-02 01:46:17 +0000
committerdteske <dteske@FreeBSD.org>2015-04-02 01:46:17 +0000
commitd64a11d9ba55447d3deed5ec4e589a139b6a7c87 (patch)
tree73a4f27532a6c570aad47339ddda46c0280069c4 /sys/boot/forth
parent868c1ec5c2d46ff1b6ac00954f63e03e0ca85d64 (diff)
downloadFreeBSD-src-d64a11d9ba55447d3deed5ec4e589a139b6a7c87.zip
FreeBSD-src-d64a11d9ba55447d3deed5ec4e589a139b6a7c87.tar.gz
Use fg/b/me from screen.4th instead of literals
MFC after: 3 days X-MFC-to: stable/10
Diffstat (limited to 'sys/boot/forth')
-rw-r--r--sys/boot/forth/menu.4th9
-rw-r--r--sys/boot/forth/version.4th9
2 files changed, 7 insertions, 11 deletions
diff --git a/sys/boot/forth/menu.4th b/sys/boot/forth/menu.4th
index 892e807..4eab6ab 100644
--- a/sys/boot/forth/menu.4th
+++ b/sys/boot/forth/menu.4th
@@ -216,13 +216,10 @@ also menu-infrastructure definitions
dup menuX @ swap at-xy
\ Print the value of menuidx
- loader_color? if
- ." " (  )
- then
+ loader_color? dup ( -- bool bool )
+ if b then
menuidx @ .
- loader_color? if
- ." " (  )
- then
+ if me then
\ Move the cursor forward 1 column
dup menuX @ 1+ swap at-xy
diff --git a/sys/boot/forth/version.4th b/sys/boot/forth/version.4th
index aec2562..2b672b6 100644
--- a/sys/boot/forth/version.4th
+++ b/sys/boot/forth/version.4th
@@ -85,11 +85,10 @@ only forth definitions also version-processing
dup versionX @ swap - versionY @ at-xy
\ Print the version (optionally in cyan)
- loader_color? if
- ." " type ." "
- else
- type
- then
+ loader_color? dup ( -- bool bool )
+ if 6 fg then
+ type
+ if me then
;
only forth definitions
OpenPOWER on IntegriCloud