aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r--src/interp/c-util.boot3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 1298963d..32ef603c 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1357,10 +1357,13 @@ backendCompile l ==
compileFileQuietly path ==
quietlyIfInteractive COMPILE_-FILE path
+++ Subroutine of compileConstructor1. Called to compile the body
+++ of a category constructor definition.
compAndDefine l ==
_*COMP370_-APPLY_* := "PRINT-AND-EVAL-DEFUN"
backendCompile l
+++ Subroutine of compileInteractive.
compQuietly fn ==
_*COMP370_-APPLY_* :=
$InteractiveMode =>