[Win32forth-cvs] win32forth/src Primutil.f,1.21,1.22

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

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19721

Modified Files:
	Primutil.f 
Log Message:
Jos: A simulation of an unknown windows system revealed that a correction was needed. Sorry.

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** Primutil.f	10 Mar 2007 14:18:50 -0000	1.21
--- Primutil.f	10 Mar 2007 15:05:02 -0000	1.22
***************
*** 702,708 ****
                    endof
                    6  of winvista endof
                  endcase
                endof
-             drop -1 dup   \ unknown windows version
              endcase to winver
              r>drop _localfree
--- 702,708 ----
                    endof
                    6  of winvista endof
+                 drop -1 dup   \ unknown windows version
                  endcase
                endof
              endcase to winver
              r>drop _localfree