diff options
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index b70fafab..12a36c52 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1592,6 +1592,15 @@ compilerDoitWithScreenedLisplib(constructor, fun) == SEQ(UNEMBED 'RWRITE)) +--% Interface to the backend + +compileFileQuietly path == + $OutputStream := + $InteractiveMode => MAKE_-BROADCAST_-STREAM() + MAKE_-SYNONYM_-STREAM "*STANDARD-OUTPUT*" + COMPILE_-FILE path + + --% Register compilers for special forms. -- Those compilers are on the `SPECIAL' property of the corresponding -- special form operator symbol. |