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 ! ;
|
