From 9bf4d34f20b79b051730cf9536d08a8c07c54b02 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 24 Nov 2011 20:22:29 +0000
Subject: 	* interp/define.boot: Tidy. 	* interp/functor.boot:
 Likewise. 	* interp/g-util.boot: Likewise. 	* interp/slam.boot:
 Likewise. 	* interp/topics.boot: Likewise. 	* interp/trace.boot:
 Likewise.

---
 src/interp/functor.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/functor.boot b/src/interp/functor.boot
index 35737a60..1cf807a9 100644
--- a/src/interp/functor.boot
+++ b/src/interp/functor.boot
@@ -473,7 +473,7 @@ DescendCode(db,code,flag,viewAssoc,e) ==
   code is ['CodeDefine,sig,implem] =>
              --Generated by doIt in COMPILER BOOT
     dom :=
-      u := LASSOC('$,viewAssoc) => ['getDomainView,'$,u]
+      u := symbolTarget('$,viewAssoc) => ['getDomainView,'$,u]
       '$
     body:= ['CONS,implem,dom]
     u := SetFunctionSlots(sig,body,flag,'original)
-- 
cgit v1.2.3