Skip site navigation (1)Skip section navigation (2)
Date:      Thu, 2 Apr 2015 01:46:18 +0000 (UTC)
From:      Devin Teske <dteske@FreeBSD.org>
To:        src-committers@freebsd.org, svn-src-all@freebsd.org, svn-src-head@freebsd.org
Subject:   svn commit: r280974 - head/sys/boot/forth
Message-ID:  <201504020146.t321kI40040584@svn.freebsd.org>

next in thread | raw e-mail | index | archive | help
Author: dteske
Date: Thu Apr  2 01:46:17 2015
New Revision: 280974
URL: https://svnweb.freebsd.org/changeset/base/280974

Log:
  Use fg/b/me from screen.4th instead of literals
  
  MFC after:	3 days
  X-MFC-to:	stable/10

Modified:
  head/sys/boot/forth/menu.4th
  head/sys/boot/forth/version.4th

Modified: head/sys/boot/forth/menu.4th
==============================================================================
--- head/sys/boot/forth/menu.4th	Thu Apr  2 01:02:42 2015	(r280973)
+++ head/sys/boot/forth/menu.4th	Thu Apr  2 01:46:17 2015	(r280974)
@@ -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

Modified: head/sys/boot/forth/version.4th
==============================================================================
--- head/sys/boot/forth/version.4th	Thu Apr  2 01:02:42 2015	(r280973)
+++ head/sys/boot/forth/version.4th	Thu Apr  2 01:46:17 2015	(r280974)
@@ -85,11 +85,10 @@ only forth definitions also version-proc
 	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



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201504020146.t321kI40040584>