[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.39,1.40

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

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

Modified Files:
	fkernel.f 
Log Message:
gah:Fixed bug in Z,"

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** fkernel.f	3 Oct 2006 07:44:22 -0000	1.39
--- fkernel.f	10 Oct 2006 11:11:25 -0000	1.40
***************
*** 3297,3301 ****
  
  CODE APPEND-LINK ( addr list -- )     \ W32F         List
! \ *G Appendd a link to the end of a list.
  @@1:            mov     ecx, 0 [ebx]              \ get next link
                  test    ecx, ecx                  \ is next link zero?
--- 3297,3301 ----
  
  CODE APPEND-LINK ( addr list -- )     \ W32F         List
! \ *G Append a link to the end of a list.
  @@1:            mov     ecx, 0 [ebx]              \ get next link
                  test    ecx, ecx                  \ is next link zero?
***************
*** 3351,3355 ****
  : Z",           ( addr len -- )            \ W32F     String Extra
  \ *G Compile the string, addr len at here.
!                 HERE OVER ALLOT place ;
  
  : Z,"           ( -<string">- )            \ compile string" at here
--- 3351,3355 ----
  : Z",           ( addr len -- )            \ W32F     String Extra
  \ *G Compile the string, addr len at here.
!                 HERE OVER ALLOT swap cmove ;
  
  : Z,"           ( -<string">- )            \ compile string" at here