[Spf-commits] src macroopt-hide.f,1.1,1.2

[ruvim <ru...@us...>]

Update of /cvsroot/spf/src
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21542

Modified Files:
	macroopt-hide.f 
Log Message:
FAC spf4 src macroopt-hide -- remove old names (to be in accordance with related commit on 2015-05-22)

Index: macroopt-hide.f
===================================================================
RCS file: /cvsroot/spf/src/macroopt-hide.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- macroopt-hide.f	18 Apr 2014 22:47:45 -0000	1.1
+++ macroopt-hide.f	8 Jun 2015 16:27:50 -0000	1.2
@@ -37,7 +37,7 @@
 
 
 \ src: ~pinka/spf/compiler/native-wordlist.f
-: RELATE-NAME ( xt  c-addr u  wid -- )
+: RELATE-WORDLIST ( xt  c-addr u  wid -- )
 \ ïîñòàâèòü èìÿ (çàäàííîå c-addr u) â îòíîøåíèå ê xt â ñïèñêå wid
   >R
   \ HERE LAST-CFA !
@@ -109,7 +109,7 @@
   TC-MACROOPT-WL SEARCH-WORDLIST
   DUP 0= IF DROP 2R> TYPE SPACE -321 THROW THEN
   ( xt flag )
-  2R> ROT >R TC-FORTH-WL RELATE-NAME
+  2R> ROT >R TC-FORTH-WL RELATE-WORDLIST
   R> 1 = IF IMMEDIATE THEN
 ;
 : E: ( -- )