From a8469b11f4b06fd70bf1e2082fcd0016de428053 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 22 Apr 2008 02:42:48 +0000
Subject: 	* interp/br-data.boot: Tidy. 	* interp/br-util.boot:
 Likewise. 	* interp/c-doc.boot: Likewise. 	* interp/cattable.boot:
 Likewise. 	* interp/clammed.boot: Likewise. 	* interp/define.boot:
 Likewise. 	* interp/g-cndata.boot: Likewise. 	* interp/g-util.boot:
 Likewise. 	* interp/ht-util.boot: Likewise. 	* interp/i-map.boot:
 Likewise. 	* interp/modemap.boot: Likewise. 	* interp/nrungo.boot:
 Likewise. 	* interp/rulesets.boot: Likewise. 	* interp/slam.boot:
 Likewise. 	* interp/i-spec1.boot: Likewise. 	*
 interp/Makefile.pamphlet (br-util.$(FASLEXT)): Don't compile as 	Old
 Boot. 	(bc-solve.$(FASLEXT)): Likewise. 	(ht-util.$(FASLEXT)):
 Likewise. 	(rulesets.$(FASLEXT)): Likewise. 	(i-object.$(FASLEXT)):
 Likewise. 	(i-util.$(FASLEXT)): Likewise. 	(nrunfast.$(FASLEXT)):
 Likewise. 	(nrungo.$(FASLEXT)): Likewise. 	(iterator.$(FASLEXT)):
 Likewise. 	(cattable.$(FASLEXT)): Likewise. 	(c-doc.$(FASLEXT)):
 Likewise. 	(posit.$(FASLEXT)): Likewise. 	(modemap.$(FASLEXT)):
 Likewise. 	(slam.$(FASLEXT)): Likewise. 	(clammed.$(FASLEXT)):
 Likewise. 	(g-opt.$(FASLEXT)): Likewise. 	(g-error.$(FASLEXT)):
 Likewise. 	(pathname.$(FASLEXT)): Likewise. 	(g-util.$(FASLEXT)):
 Likewise. 	(g-cndata.$(FASLEXT)): Likewise. 	* boot/tokens.boot:
 Remove renaming of NOT to NULL, when compiling 	Old Boot.

---
 src/interp/c-doc.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/c-doc.boot')

diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot
index b343b13d..95d33691 100644
--- a/src/interp/c-doc.boot
+++ b/src/interp/c-doc.boot
@@ -45,12 +45,12 @@ getDoc(conName,op,modemap) ==
   [dc,target,sl,pred,D] := simplifyModemap modemap
   sig := [target,:sl]
   null atom dc =>
-    sig := SUBST('$,dc,sig)
+    sig := substitute('$,dc,sig)
     sig := SUBLISLIS($FormalMapVariableList,rest dc,sig)
     getDocForDomain(conName,op,sig)
   if argList := IFCDR getOfCategoryArgument pred then
      SUBLISLIS($FormalMapArgumentList,argList,sig)
-  sig := SUBST('$,dc,sig)
+  sig := substitute('$,dc,sig)
   getDocForCategory(conName,op,sig)
 
 ++ Given a preidcate `pred' for a modemap, returns the first
@@ -132,7 +132,7 @@ collectAndDeleteAssoc x ==
 
 finalizeDocumentation() ==
   unusedCommentLineNumbers := [x for (x := [n,:r]) in $COMBLOCKLIST | r]
-  docList := SUBST("$","%",transDocList($op,$docList))
+  docList := substitute("$","%",transDocList($op,$docList))
   if u := [sig for [sig,:doc] in docList | null doc] then
     for y in u repeat
       y = 'constructor => noHeading := true
-- 
cgit v1.2.3