From dcs@newsguy.com  Thu Jan 28 01:24:42 1999
Received: from peach.ocn.ne.jp (peach.ocn.ne.jp [210.145.254.87])
          by hub.freebsd.org (8.8.8/8.8.8) with ESMTP id BAA14239
          for <FreeBSD-gnats-submit@freebsd.org>; Thu, 28 Jan 1999 01:24:41 -0800 (PST)
          (envelope-from dcs@newsguy.com)
Received: from daniel.sobral by peach.ocn.ne.jp (8.9.1a/OCN) id SAA22935; Thu, 28 Jan 1999 18:24:37 +0900 (JST)
Received: (from root@localhost)
	by daniel.sobral (8.9.1/8.9.2) id SAA00351;
	Thu, 28 Jan 1999 18:23:56 +0900 (JST)
	(envelope-from root)
Message-Id: <199901280923.SAA00351@daniel.sobral>
Date: Thu, 28 Jan 1999 18:23:56 +0900 (JST)
From: dcs@newsguy.com
Reply-To: dcs@newsguy.com
To: FreeBSD-gnats-submit@freebsd.org
Subject: share/examples/bootforth is outdated
X-Send-Pr-Version: 3.2

>Number:         9744
>Category:       docs
>Synopsis:       The examples in bootforth have been outdated by bin/9663
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-doc
>State:          closed
>Quarter:        
>Keywords:       
>Date-Required:  
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Thu Jan 28 01:30:00 PST 1999
>Closed-Date:    Thu Jan 28 02:51:52 PST 1999
>Last-Modified:  Thu Jan 28 02:52:13 PST 1999
>Originator:     Daniel C. Sobral
>Release:        FreeBSD 4.0-CURRENT i386
>Organization:
>Environment:

		Current, after bin/9663.

>Description:

	bin/9663 changed semantics of loader's builtin words when compiled
in. Change example accordingly.

>How-To-Repeat:

	cp /usr/share/examples/bootforth/* /boot
	reboot
	1

>Fix:
	
	Apply the following fix:


--- src/share/examples/bootforth/menu.4th.orig	Thu Jan 28 18:11:59 1999
+++ src/share/examples/bootforth/menu.4th	Thu Jan 28 18:16:53 1999
@@ -61,6 +61,9 @@
 	10 22 at-xy ." * Choose 3 in order to warm boot your machine."
 ;
 
+: (boot) 0 boot ;
+: (reboot) 0 reboot ;
+
 : main_menu
 	begin 1 while
 		clear
@@ -75,7 +78,7 @@
 			drop
 			1 25 at-xy cr
 			." Loading kernel. Please wait..." cr
-			boot
+			['] (boot) catch abort" Error booting"
 		then
 		dup 50 = if
 			drop
@@ -85,7 +88,7 @@
 		dup 51 = if
 			drop
 			1 25 at-xy cr
-			reboot
+			['] (reboot) catch abort" Error rebooting"
 		then
 		20 12 at-xy
 		." Key " emit ."  is not a valid option!"
>Release-Note:
>Audit-Trail:
State-Changed-From-To: open->closed 
State-Changed-By: jkh 
State-Changed-When: Thu Jan 28 02:51:52 PST 1999 
State-Changed-Why:  
done, thanks! 
>Unformatted:
