diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-19 01:22:11 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-19 01:22:11 +0000 |
commit | af7a143e3a13e932e243165814fa40424507dae0 (patch) | |
tree | b0b22dedd5754449a9565049f3b4552f4ae2c71f /src/interp/define.boot | |
parent | 43e465553496af8449014857fdd95386b6e8fd66 (diff) | |
download | open-axiom-af7a143e3a13e932e243165814fa40424507dae0.tar.gz |
* interp/buildom.boot (lookupInDomainVector): Establish a new
binding for $lookupDefaults.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 2c5bc83b..6bbe42e1 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1040,7 +1040,7 @@ compDefineFunctor1(df is ['DEF,form,signature,nils,body], ++ Subroutine of compDefineFunctor1. Called to generate backend code ++ for a functor definition. compFunctorBody(body,m,e,parForm) == - $bootStrapMode = true => + $bootStrapMode => [bootStrapError($functorForm, _/EDITFILE),m,e] clearCapsuleDirectory() -- start collecting capsule functions. T:= compOrCroak(body,m,e) @@ -1527,7 +1527,7 @@ compile u == if not $insideCapsuleFunctionIfTrue then optimizedBody else putInLocalDomainReferences optimizedBody - $doNotCompileJustPrint=true => (PRETTYPRINT stuffToCompile; op') + $doNotCompileJustPrint => (PRETTYPRINT stuffToCompile; op') $macroIfTrue => constructMacro stuffToCompile -- Let the backend know about this function's type @@ -1644,7 +1644,7 @@ registerInlinableDomain(x,e) == nil compAdd(['add,$addForm,capsule],m,e) == - $bootStrapMode = true => + $bootStrapMode => if $addForm is ["%Comma",:.] then code := nil else [code,m,e]:= comp($addForm,m,e) [['%when, _ @@ -1675,7 +1675,7 @@ compTuple2Record u == ['Record,:[[":",i,x] for i in 1.. for x in u.args]] compCapsule(['CAPSULE,:itemList],m,e) == - $bootStrapMode = true => + $bootStrapMode => [bootStrapError($functorForm, _/EDITFILE),m,e] $insideExpressionIfTrue: local:= false $useRepresentationHack := true |