Bug 101 - Nyquist implementation: (dribble [fname]) function

This commit is contained in:
Leland Lucius 2021-01-28 14:16:41 -06:00
parent ae99e69af0
commit a3a158e56b
1 changed files with 4 additions and 0 deletions

View File

@ -60,6 +60,7 @@ extern LVAL fnodes;
/* nyquist externs */
extern LVAL a_sound;
extern snd_list_type zero_snd_list;
extern FILE *tfp; /* transcript file pointer */
/* globals */
LOCAL nyx_os_callback nyx_os_cb = NULL;
@ -1292,6 +1293,9 @@ void ostputc(int ch)
if (nyx_output_cb) {
nyx_output_cb(ch, nyx_output_ud);
if (tfp) {
putc(ch, tfp);
}
}
else {
putchar((char) ch);