[Win32forth-cvs] win32forth/apps/Setup HYPER.F,1.2,1.3

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25520/win32forth/apps/Setup

Modified Files:
	HYPER.F 
Log Message:
gah:  replaced 2swap 2drop with 2nip and other minor optimizations

Index: HYPER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/HYPER.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** HYPER.F	23 Apr 2005 12:27:21 -0000	1.2
--- HYPER.F	3 May 2005 15:05:52 -0000	1.3
***************
*** 125,129 ****
                          bl skip                 \ and skip it
                          dup                     \ any text left
!                 while   2swap 2drop
                  repeat  2drop  ;                \ if any text left, then
  
--- 125,129 ----
                          bl skip                 \ and skip it
                          dup                     \ any text left
!                 while   2nip
                  repeat  2drop  ;                \ if any text left, then
  
***************
*** 198,202 ****
                          ?do     +word 2drop     \ skip a word
                          loop    +word           \ pick up next word
!                         2swap 2drop
                          write.onename           \ and write one index name
                  then ;
--- 198,202 ----
                          ?do     +word 2drop     \ skip a word
                          loop    +word           \ pick up next word
!                         2nip
                          write.onename           \ and write one index name
                  then ;
***************
*** 224,228 ****
                          ?do     -word 2drop     \ find last word in line and discard it
                          loop    -word           \ find the word before it
!                         2swap 2drop             \ discard leading remainder of line
                          write.onename           \ and write one index name
                  else    2drop
--- 224,228 ----
                          ?do     -word 2drop     \ find last word in line and discard it
                          loop    -word           \ find the word before it
!                         2nip                    \ discard leading remainder of line
                          write.onename           \ and write one index name
                  else    2drop