aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/c-util.boot3
-rw-r--r--src/interp/define.boot9
2 files changed, 10 insertions, 2 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 =>
diff --git a/src/interp/define.boot b/src/interp/define.boot
index 6225e63b..2ebbac4e 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -717,7 +717,9 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body],
evalAndRwriteLispForm('NILADIC,
['MAKEPROP, ['QUOTE,op'], ['QUOTE,'NILADIC], true])
[fun,['Mapping,:signature'],originale]
-
+
+++ Subroutine of compDefineFunctor1. Called to generate backend code
+++ for a functor definition.
compFunctorBody(body,m,e,parForm) ==
$bootStrapMode = true =>
[bootStrapError($functorForm, _/EDITFILE),m,e]
@@ -1288,7 +1290,10 @@ compile u ==
$functionStats:= addStats($functionStats,functionStats)
printStats functionStats
result
-
+
+++ Subroutine of compile. Called to generate backend code for
+++ items defined directly or indirectly at capsule level. This is
+++ also used to compile functors.
spadCompileOrSetq (form is [nam,[lam,vl,body]]) ==
--bizarre hack to take account of the existence of "known" functions
--good for performance (LISPLLIB size, BPI size, NILSEC)