diff options
Diffstat (limited to 'src/interp/slam.boot')
| -rw-r--r-- | src/interp/slam.boot | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index c48b0cbf..5a74a0cb 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -406,7 +406,16 @@ compileInteractive fn == result := compQuietly optfn if $InteractiveMode then stopTimingProcess 'compilation result - + +++ Subroutine of compileInteractive. +compQuietly fn == + _*COMP370_-APPLY_* := + $InteractiveMode => + $compileDontDefineFunctions => "COMPILE-DEFUN" + "EVAL-DEFUN" + "PRINT-DEFUN" + quietlyIfInteractive backendCompile fn + clearAllSlams x == fn(x,nil) where fn(thoseToClear,thoseCleared) == |