diff options
author | luigi <luigi@FreeBSD.org> | 2009-01-13 12:28:14 +0000 |
---|---|---|
committer | luigi <luigi@FreeBSD.org> | 2009-01-13 12:28:14 +0000 |
commit | 24663db4474b495f535a9d5f1c52166fa6219f2b (patch) | |
tree | 5103e69a80a62b203838ddc8f5b75f64bff3bdcc /sys/boot | |
parent | 39ff9d77c231652d6f1acfe0ed97070eb3059e08 (diff) | |
download | FreeBSD-src-24663db4474b495f535a9d5f1c52166fa6219f2b.zip FreeBSD-src-24663db4474b495f535a9d5f1c52166fa6219f2b.tar.gz |
comment out some debugging messages that slipped in by mistake.
MFC after: 3 days
Diffstat (limited to 'sys/boot')
-rw-r--r-- | sys/boot/forth/support.4th | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/sys/boot/forth/support.4th b/sys/boot/forth/support.4th index dd8502e..5484e06 100644 --- a/sys/boot/forth/support.4th +++ b/sys/boot/forth/support.4th @@ -820,7 +820,7 @@ only forth also support-functions definitions \ 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 print the file name \ 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 print the file name 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 ) |