[Win32forth-cvs] win32forth/apps/Setup HYPER.F,1.4,1.5

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv30841

Modified Files:
	HYPER.F 
Log Message:
Jos: Avoiding duplicate byte-array.

Index: HYPER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/HYPER.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** HYPER.F	26 Aug 2006 15:25:31 -0000	1.4
--- HYPER.F	30 Dec 2015 11:41:49 -0000	1.5
***************
*** 32,38 ****
          file to search or build.
  
! ))   
  
  anew -hyper.f
  
  cr .( Loading Hyper...)
--- 32,39 ----
          file to search or build.
  
! ))
  
  anew -hyper.f
+ needs sub_dirs.f
  
  cr .( Loading Hyper...)
***************
*** 244,247 ****
--- 245,254 ----
                  ?word.terminate         \ 5     stop scanning the file if this is found
                  ;
+ defined byte-array nip not [IF]
+ 
+  : byte-array    ( n1 -<name>- )         \ compile time
+                 ( -- a1 )               \ runtime
+                 create 1+ here over allot swap erase ;
+ [THEN]
  
   64             constant   b/tbl
***************
*** 526,530 ****
  
  : build-index   ( --- )
! 		
  		current-dir$ \ save current directory
  		&forthdir 1+ $current-dir! drop \ set current directory
--- 533,537 ----
  
  : build-index   ( --- )
! 
  		current-dir$ \ save current directory
  		&forthdir 1+ $current-dir! drop \ set current directory
***************
*** 546,548 ****
  
  		$current-dir! ; \ restore current directory
-