[Win32forth-cvs] win32forth-stc/src forget.f, 1.3, 1.4 primutil.f, 1.31, 1.32

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

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

Modified Files:
	forget.f primutil.f 
Log Message:
gah:made ?turnkeyed work, and fixed bugs in recognising if words are in particular areas.

Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** primutil.f	5 May 2007 19:01:05 -0000	1.31
--- primutil.f	12 May 2007 10:49:12 -0000	1.32
***************
*** 60,64 ****
  in-previous
  
! false constant turnkeyed?
  
  defer "message           ' 2drop        is "message
--- 60,64 ----
  in-previous
  
! : turnkeyed? sys-size 0= ;
  
  defer "message           ' 2drop        is "message

Index: forget.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/forget.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** forget.f	24 Apr 2007 09:15:01 -0000	1.3
--- forget.f	12 May 2007 10:49:12 -0000	1.4
***************
*** 53,57 ****
  \ *G Returns true if addr is between the origin and top of the space represented
  \ ** by ?dp (adp, cdp, sdp, kdp or any transient space created by the user).
!                 dup @ swap 2 cells+ @ between ;
  
  : (sys-trim?)   ( nfa addr -- addr pre-?dp ?dp-top )
--- 53,57 ----
  \ *G Returns true if addr is between the origin and top of the space represented
  \ ** by ?dp (adp, cdp, sdp, kdp or any transient space created by the user).
!                 dup cell+ @ swap 2 cells+ @ between ;
  
  : (sys-trim?)   ( nfa addr -- addr pre-?dp ?dp-top )
***************
*** 114,118 ****
  forget-chain chain-add trim-WinLibs
  
! : trim-WinProcs
            dup winproc-link full-trim winproc-link @ winproc-last ! ;
  
--- 114,118 ----
  forget-chain chain-add trim-WinLibs
  
! : trim-WinProcs   ( nfa -- nfa )
            dup winproc-link full-trim winproc-link @ winproc-last ! ;