Hi,

Sjoerd van Leent <[email protected]> skribis:

> -  scm_puts_unlocked (";;; compiling ", scm_current_error_port ());
> -  scm_display (source, scm_current_error_port ());
> -  scm_newline (scm_current_error_port ());
> +  if (scm_is_true (*scm_loc_display_auto_compilation_messages))
> +    {
> +      scm_puts_unlocked (";;; compiling ", scm_current_error_port ());
> +      scm_display (source, scm_current_error_port ());
> +      scm_newline (scm_current_error_port ());
> +    }

FWIW, I think the approach should rather be to have a special port (a
fluid) for such things, say, ‘current-notification-port’.  We’d simply
replace scm_current_error_port by scm_current_notication_port above.

The command-line option could be --quiet.  It would bind both
current-notification-port and current-warning-port to a void port.

WDYT?  Would you like to adjust the patch accordingly?

Thanks,
Ludo’.


Reply via email to