From b9a4e3cd1880e977a827a98b1cb69175e7ad1e74 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 2 Jan 2011 01:17:52 +0000
Subject: Remove uses of SETF in Boot codes

---
 src/interp/interop.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/interop.boot')

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
-- 
cgit v1.2.3