[Win32forth-cvs] win32forth/src Extend.f,1.2,1.3 Primutil.f,1.1,1.2

[Dirk B. <db...@us...>]

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

Modified Files:
	Extend.f Primutil.f 
Log Message:
dbu: some cosmetic changes

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Primutil.f	21 Dec 2004 00:19:08 -0000	1.1
--- Primutil.f	23 Jan 2005 10:42:26 -0000	1.2
***************
*** 91,95 ****
  : _\n->crlf     ( a1 n1 -- )    \ parse "\n" occurances, change to CRLF's
                  begin   [char] \ scan dup               \ found a '\' char
!                 while   over 1+ c@ [char] n =            \ followed by 'n'
                          if      over 13 swap c!         \ replace with CR
                                  over 10 swap 1+ c!      \ replace with LF
--- 91,95 ----
  : _\n->crlf     ( a1 n1 -- )    \ parse "\n" occurances, change to CRLF's
                  begin   [char] \ scan dup               \ found a '\' char
!                 while   over 1+ c@ [char] n =           \ followed by 'n'
                          if      over 13 swap c!         \ replace with CR
                                  over 10 swap 1+ c!      \ replace with LF
***************
*** 108,113 ****
  MAXSTRING newuser z-buf
  
! : asciiz      ( addr len -- buff-z )
!   z-buf ascii-z ;
  
  : +z,"          ( -<text">- )
--- 108,113 ----
  MAXSTRING newuser z-buf
  
! : asciiz	( addr len -- buff-z )
! 		z-buf ascii-z ;
  
  : +z,"          ( -<text">- )
***************
*** 1047,1048 ****
--- 1047,1049 ----
  
  
+