[Win32forth-cvs] win32forth/src/lib ExUtils.f,1.3,1.4

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

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

Modified Files:
	ExUtils.f 
Log Message:
Fixed redefinition of tabsize.

Index: ExUtils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExUtils.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ExUtils.f	6 Jun 2006 02:58:24 -0000	1.3
--- ExUtils.f	7 Jun 2006 16:06:24 -0000	1.4
***************
*** 26,41 ****
                          msg-buffer [ 6 cells ] LITERAL + to param-buffer
                    then  ;
!                   
  : ?fform-started   ( -- f )
                     msg-buffer @ FFormID = ;
!                    
  : ?promgr-started ( -- f )
                     msg-buffer cell+ @ ProMgrID = ;
!                    
  : fform-started    ( f -- )
                     if         FFormID
                     else       0
                     then       msg-buffer ! ;
!                    
  : promgr-started   ( f -- )
                     if         ProMgrID
--- 26,41 ----
                          msg-buffer [ 6 cells ] LITERAL + to param-buffer
                    then  ;
! 
  : ?fform-started   ( -- f )
                     msg-buffer @ FFormID = ;
! 
  : ?promgr-started ( -- f )
                     msg-buffer cell+ @ ProMgrID = ;
! 
  : fform-started    ( f -- )
                     if         FFormID
                     else       0
                     then       msg-buffer ! ;
! 
  : promgr-started   ( f -- )
                     if         ProMgrID
***************
*** 51,55 ****
--- 51,57 ----
  buffermax cell+ Pointer BufferAddress
  
+ [undefined] tabsize [if]
  8 value tabsize
+ [then]
  0 value #chars  \ current number of characters on line
  0 value #lines  \ number lines written
***************
*** 91,95 ****
  : z"append      ( -- )
                  [char] z cappend "append bl cappend ;
!                 
  : #append       ( n -- )
                  (.) append bl cappend ;
--- 93,97 ----
  : z"append      ( -- )
                  [char] z cappend "append bl cappend ;
! 
  : #append       ( n -- )
                  (.) append bl cappend ;
***************
*** 144,151 ****
                              evaluate
                  repeat      ;
!                 
  : fload-buffer  ( addr cnt -- )
                  TheBuffer (fload-buffer) ;
!                 
  /*
  : ExecuteFile   { addr cnt hndl \ temp$ -- } \ open file using default application
--- 146,153 ----
                              evaluate
                  repeat      ;
! 
  : fload-buffer  ( addr cnt -- )
                  TheBuffer (fload-buffer) ;
! 
  /*
  : ExecuteFile   { addr cnt hndl \ temp$ -- } \ open file using default application