[Win32forth-cvs] win32forth/src/lib ScintillaLexer.f,1.5,1.6

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

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

Modified Files:
	ScintillaLexer.f 
Log Message:
- IN-PREVIOUS added. It restores the data area after a call to IN-APPLICATION IN-SYSTEM or IN-CODE.

Index: ScintillaLexer.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaLexer.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ScintillaLexer.f	17 Dec 2005 15:15:07 -0000	1.5
--- ScintillaLexer.f	13 Aug 2006 07:59:00 -0000	1.6
***************
*** 67,81 ****
  
  create UserWords2
! ,{ ENVIRONMENT? MARKER DEFINITIONS ALSO ONLY PREVIOUS ANEW INTERNAL PRIVATE EXTERNAL MODULE }
! ,{ IN-APPLICATION IN-SYSTEM SYS-WARNING-OFF SYS-WARNING-ON IMMEDIATE POSTPONE }
! ,{ ' ['] [CHAR] [COMPILE] \IN-SYSTEM-OK \- \+ IN-CODE }
! ,{ #LEXICON LEXICON #VOCABULARY VOCABULARY }
  
  create UserWords3
  ,{ [DEFINED] [UNDEFINED] [IF] [ELSE] [THEN] [ENDIF] }
! ,{ #IF #ELSE #THEN #ENDIF #IFDEF #IFNDEF }
  ,{ [ ] }
! ,{ INCLUDE-FILE INCLUDED $FLOAD FLOAD SYS-FLOAD OK "FLOAD INCLUDE NEEDS }
  ,{ FSAVE TURNKEY APPLICATION }
  
  create UserWords4
--- 67,85 ----
  
  create UserWords2
! ,{ VOCABULARY DEFINITIONS ALSO ONLY PREVIOUS }
! ,{ IN-APPLICATION IN-SYSTEM IN-CODE IN-PREVIOUS \IN-SYSTEM-OK \- \+ }
! ,{ SYS-WARNING-OFF SYS-WARNING-ON }
! ,{ MARKER ANEW INTERNAL PRIVATE EXTERNAL MODULE }
! ,{ ' ['] [CHAR] [COMPILE] POSTPONE IMMEDIATE }
! ,{ #LEXICON LEXICON #VOCABULARY }
! ,{ ENVIRONMENT? }
  
  create UserWords3
  ,{ [DEFINED] [UNDEFINED] [IF] [ELSE] [THEN] [ENDIF] }
! ,{ #IFDEF #IFNDEF #IF #ELSE #THEN #ENDIF }
  ,{ [ ] }
! ,{ INCLUDE-FILE INCLUDED $FLOAD FLOAD SYS-FLOAD "FLOAD INCLUDE NEEDS }
  ,{ FSAVE TURNKEY APPLICATION }
+ ,{ OK }
  
  create UserWords4