svn commit: r187143 - head/sys/boot/forth

[Luigi Rizzo]

Author: luigi
Date: Tue Jan 13 12:28:14 2009
New Revision: 187143
URL: http://svn.freebsd.org/changeset/base/187143

Log:
  comment out some debugging messages that slipped in by mistake.
  
  MFC after:	3 days

Modified:
  head/sys/boot/forth/support.4th

Modified: head/sys/boot/forth/support.4th
==============================================================================
--- head/sys/boot/forth/support.4th	Tue Jan 13 12:19:43 2009	(r187142)
+++ head/sys/boot/forth/support.4th	Tue Jan 13 12:28:14 2009	(r187143)
@@ -820,7 +820,7 @@ only forth also support-functions defini
 \ Interface to loading conf files
 
 : load_conf  ( addr len -- )
-  ." ----- Trying conf " 2dup type cr
+  \ ." ----- Trying conf " 2dup type cr \ debugging
   0 to end_of_file?
   reset_line_reading
   O_RDONLY fopen fd !
@@ -912,7 +912,7 @@ string current_file_name_ref	\ used to p
 \ loader_conf_files processing support functions
 
 : get_conf_files ( -- addr len )  \ put addr/len on stack, reset var
-  ." -- starting on <" conf_files strtype ." >" cr
+  \ ." -- starting on <" conf_files strtype ." >" cr \ debugging
   conf_files strget 0 0 conf_files strset
 ;
 
@@ -939,8 +939,7 @@ string current_file_name_ref	\ used to p
     pos char+ to pos
   repeat
   addr len pos addr r@ + pos r> -
-  2dup
-  ." get_file_name has " type cr
+  \ 2dup ." get_file_name has " type cr \ debugging
 ;
 
 : get_next_file  ( addr len ptr -- addr len ptr' addr' len' | 0 )