diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-21 02:00:46 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-21 02:00:46 +0000 |
| commit | b136bc01f60d2baa53148919ee04828dbe9e53b1 (patch) | |
| tree | 651ce1ae5024b638514939984db57c82ed8d850e /src/interp/buildom.boot | |
| parent | 1dd827ef13faa3285b5a9735965d92f841922668 (diff) | |
| download | open-axiom-b136bc01f60d2baa53148919ee04828dbe9e53b1.tar.gz | |
* interp/template.boot (evalSlotDomain): Tidy.
* interp/macros.lisp (Record): Remove.
* interp/buildom.boot (RecordInner): Remove.
(Record): Rename from Record0. Tidy.
* interp/Makefile.pamphlet (buildom.$(FASLEXT)): Don't compiel as
Old Boot.
Diffstat (limited to 'src/interp/buildom.boot')
| -rw-r--r-- | src/interp/buildom.boot | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot index d696b2bc..2e7c1988 100644 --- a/src/interp/buildom.boot +++ b/src/interp/buildom.boot @@ -67,12 +67,6 @@ $FirstParamSlot == isRecord type == type is ["Record",:.] -RecordInner args == - -- this is old and should be removed wherever it occurs - if $evalDomain then - sayBrightly '"-->> Whoops! RecordInner called from this code." - Record0 VEC2LIST args - ++ returns the code for the `n'th item recorded in a domain shell, ++ according to the old runtime system. Note that the old runtime ++ scheme is used only for the handful of constructors created @@ -82,8 +76,8 @@ oldSlotCode n == 2 * ($FirstParamSlot + n) -Record0 args == - srcArgs := [[":",first a, devaluate rest a] for a in args] +Record(:args) == + srcArgs := [[":", second a, devaluate third a] for a in args] -- if we already have this instantiation in store, just hand it back. t := lassocShiftWithFunction(srcArgs, HGET($ConstructorCache,"Record"), "domainEqualList") => @@ -101,7 +95,7 @@ Record0 args == dom.3 := ["RecordCategory",:QCDR dom.0] dom.4 := [$commonCategoryDefaults, $commonCategoryAncestors] dom.5 := nil - for i in $FirstParamSlot.. for a in args repeat dom.i := rest a + for i in $FirstParamSlot.. for a in args repeat dom.i := third a dom.($FirstParamSlot + nargs) := [function RecordEqual, :dom] dom.($FirstParamSlot + nargs + 1) := [function RecordPrint, :dom] dom.($FirstParamSlot + nargs + 2) := [function Undef, :dom] |