diff options
| author | Rob Savoye <rob@welcomehome.org> | 2010-11-28 14:51:30 -0700 |
|---|---|---|
| committer | Rob Savoye <rob@welcomehome.org> | 2010-11-28 14:51:30 -0700 |
| commit | d520aee52daa13855adaef224c9988b58e83126c (patch) | |
| tree | 66d2531ac8ae603bf027d84e79cddea476d47be8 | |
| parent | 8da224c86c228023d9ba0e5662af84cb9e00e72e (diff) | |
be less verbose
| -rw-r--r-- | gr-run-waveform/xyzzy-load.c | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gr-run-waveform/xyzzy-load.c b/gr-run-waveform/xyzzy-load.c index 4c57251a27..504115d7b8 100644 --- a/gr-run-waveform/xyzzy-load.c +++ b/gr-run-waveform/xyzzy-load.c @@ -95,7 +95,7 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0, size_t len = strlen(scm_to_locale_string(filename)); char *ptr = scm_to_locale_string(filename); - fprintf(stderr, "TRACE %s: %d: %s\n", __FUNCTION__, __LINE__, ptr); + /* fprintf(stderr, "TRACE %s: %d: %s\n", __FUNCTION__, __LINE__, ptr); */ if (scm_is_true (hook) && scm_is_false (scm_procedure_p (hook))) SCM_MISC_ERROR ("value of %load-hook is neither a procedure nor #f", @@ -142,7 +142,6 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0, SCM scm_c_primitive_load (const char *filename) { - fprintf(stderr, "TRACE %s: %d\n", __FUNCTION__, __LINE__); return scm_primitive_load (scm_from_locale_string (filename)); } @@ -229,7 +228,7 @@ scm_init_load_path () char *env; SCM path = SCM_EOL; - fprintf(stderr, "TRACE %s: %d:\n", __FUNCTION__, __LINE__); + /* fprintf(stderr, "TRACE %s: %d:\n", __FUNCTION__, __LINE__); */ #ifdef SCM_LIBRARY_DIR path = scm_list_3 (scm_from_locale_string (SCM_SITE_DIR), @@ -339,7 +338,7 @@ SCM_DEFINE (scm_xyzzy_search_path, "search-path", 2, 1, 0, size_t filename_len; SCM result = SCM_BOOL_F; - fprintf(stderr, "TRACE %s: %d: %s\n", __FUNCTION__, __LINE__, scm_to_locale_string(filename)); + /* fprintf(stderr, "TRACE %s: %d: %s\n", __FUNCTION__, __LINE__, scm_to_locale_string(filename)); */ if (SCM_UNBNDP (extensions)) extensions = SCM_EOL; @@ -485,7 +484,7 @@ SCM_DEFINE (scm_sys_search_load_path, "%search-load-path", 1, 0, 0, SCM exts = *scm_loc_load_extensions; SCM_VALIDATE_STRING (1, filename); - fprintf(stderr, "TRACE %s: %d:\n", __FUNCTION__, __LINE__); + /* fprintf(stderr, "TRACE %s: %d:\n", __FUNCTION__, __LINE__); */ if (scm_ilength (path) < 0) SCM_MISC_ERROR ("%load-path is not a proper list", SCM_EOL); @@ -509,7 +508,7 @@ SCM_DEFINE (scm_xyzzy_primitive_load_path, "primitive-load-path", 1, 0, 0, char *filename_chars; size_t filename_len; - fprintf(stderr, "TRACE %s: %d: %s\n", __FUNCTION__, __LINE__, filename_chars); + /* fprintf(stderr, "TRACE %s: %d: %s\n", __FUNCTION__, __LINE__, filename_chars); */ filename_chars = scm_to_locale_string (filename); filename_len = strlen (filename_chars); @@ -528,7 +527,6 @@ SCM_DEFINE (scm_xyzzy_primitive_load_path, "primitive-load-path", 1, 0, 0, SCM scm_c_primitive_load_path (const char *filename) { - fprintf(stderr, "TRACE %s: %d\n", __FUNCTION__, __LINE__); return scm_xyzzy_primitive_load_path (scm_from_locale_string (filename)); } @@ -556,7 +554,7 @@ init_build_info () void scm_init_load () { - fprintf(stderr, "TRACE %s: %d\n", __FUNCTION__, __LINE__); + /* fprintf(stderr, "TRACE %s: %d\n", __FUNCTION__, __LINE__); */ scm_listofnullstr = scm_permanent_object (scm_list_1 (scm_nullstr)); scm_loc_load_path = SCM_VARIABLE_LOC (scm_c_define ("%load-path", SCM_EOL)); |