diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-07 22:55:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-07 22:55:43 +0000 |
| commit | 9ede6cd0b5be47c119455a8df1bc41cb56e2f5ff (patch) | |
| tree | 3eb1f0f07959cb47103b524c71f6e541a0642a21 /src/interp/define.boot | |
| parent | 75e606946370e97837e697e5f5070ddff4627952 (diff) | |
| download | open-axiom-9ede6cd0b5be47c119455a8df1bc41cb56e2f5ff.tar.gz | |
* interp/c-util.boot: Replace uses of rplac with explicit assignments.
* interp/compiler.boot: Likewise.
* interp/define.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* lisp/core.lisp.in ($FilesToRetain): New. Export.
* lisp/Makefile.in: Tidy.
* boot/translator.boot (retainFile?): New.
(compileBootHandler): Use it.
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 e1fe1ebf..90a1b6d5 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -240,8 +240,8 @@ checkRepresentation(addForm,body,env) == stackAndThrow('"You cannot specify type for %1b",["Rep"]) -- Now, trick the rest of the compiler into believing that -- `Rep' was defined the Old Way, for lookup purpose. - rplac(first stmt,"%LET") - rplac(rest stmt,["Rep",domainRep]) + stmt.first := "%LET" + stmt.rest := ["Rep",domainRep] $useRepresentationHack := false -- Don't confuse `Rep' and `%'. -- Shall we perform the dirty tricks? @@ -964,7 +964,7 @@ compDefineCapsuleFunction(df is ['DEF,form,signature,specialCases,body], -- been changed before we get here. if first form = "^" then sayBrightly ['"Replacing", :bright '"^", '"with",:bright '"**"] - rplac(first form,"**") + form.first := "**" [$op,:argl]:= form $form:= [$op,:argl] argl:= stripOffArgumentConditions argl |