aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-12-12 20:11:41 +0000
committerdos-reis <gdr@axiomatics.org>2008-12-12 20:11:41 +0000
commitddcad96e9a200379a0f9120b7d10531945e6e234 (patch)
tree982fd9a8a164c0de857c8acb4af1a972d3cd8548 /src
parenta1e1873a557b7c44dc6593618eb9fae8849347d0 (diff)
downloadopen-axiom-ddcad96e9a200379a0f9120b7d10531945e6e234.tar.gz
r12452@gauss: gdr | 2008-12-12 09:04:43 -0600
Add some documentation.
Diffstat (limited to 'src')
-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)