diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-25 04:15:27 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-25 04:15:27 +0000 |
| commit | 425777c747c5972163c1743d6d0ad0216eabf066 (patch) | |
| tree | 31b2b5d41e22006e709d5229d4e5fbe6c94b3b2d /src/interp/define.boot | |
| parent | 20ce2990a91a76c43ef0d255baf7a773291d6779 (diff) | |
| download | open-axiom-425777c747c5972163c1743d6d0ad0216eabf066.tar.gz | |
/EDITFILE cleanup
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index fa24ec4a..4779e3e8 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1525,7 +1525,7 @@ incompleteFunctorBody(db,m,body,e) == body is ['SubDomain,dom,pred] => [dom,pred] body is ['add,['SubDomain,dom,pred],:.] => [dom,pred] nil - [bootStrapError(dbConstructorForm db, _/EDITFILE),m,e] + [bootStrapError(dbConstructorForm db,$editFile),m,e] ++ Subroutine of compDefineFunctor1. Called to generate backend code ++ for a functor definition. @@ -2150,7 +2150,7 @@ compAdd(['add,$addForm,capsule],m,e) == ['$bootStrapMode, _ code],_ ['%otherwise, ['systemError,['%list,'"%b",MKQ $functorForm.op,'"%d",'"from", _ - '"%b",MKQ namestring _/EDITFILE,'"%d",'"needs to be compiled"]]]],m,e] + '"%b",MKQ namestring $editFile,'"%d",'"needs to be compiled"]]]],m,e] $addFormLhs: local:= $addForm db := constructorDB currentConstructor e if $addForm is ["SubDomain",domainForm,predicate] then @@ -2177,7 +2177,7 @@ compTuple2Record u == compCapsule(['CAPSULE,:itemList],m,e) == $bootStrapMode => - [bootStrapError($functorForm, _/EDITFILE),m,e] + [bootStrapError($functorForm, $editFile),m,e] $insideExpressionIfTrue: local:= false $useRepresentationHack := true clearCapsuleFunctionTable() |