diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-02 01:17:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-02 01:17:52 +0000 |
| commit | b9a4e3cd1880e977a827a98b1cb69175e7ad1e74 (patch) | |
| tree | 9b505483aa0d28ff9441b85231fc9f7d49553a2e /src/interp/interop.boot | |
| parent | f6f972eda48c04d11d8790ee24b038d8762ba34b (diff) | |
| download | open-axiom-b9a4e3cd1880e977a827a98b1cb69175e7ad1e74.tar.gz | |
Remove uses of SETF in Boot codes
Diffstat (limited to 'src/interp/interop.boot')
| -rw-r--r-- | src/interp/interop.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index 4d0de75f..97f2e827 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -281,7 +281,7 @@ instantiate domenv == -- ofn := symbolFunction functor -- loadFunctor functor -- fn := symbolFunction functor --- SETF(symbolFunction functor, ofn) +-- symbolFunction(functor) := ofn -- PUT(functor, 'instantiate, fn) -- domvec := apply(fn, args) domvec := apply(functor, args) @@ -608,7 +608,7 @@ HasCategory(domain,catform') == --systemDependentMkAutoload(fn,cnam) == -- FBOUNDP(cnam) => "next" --- SETF(symbolFunction cnam,mkAutoLoad(fn, cnam)) +-- symbolFunction(cnam) := mkAutoLoad(fn, cnam) domainEqual(a,b) == vector? a and vector? b and a.0 = b.0 |