Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.152, 2006/02/12 23:45:53 | version 1.153, 2006/02/18 13:12:52 |
---|---|
Line 2821 by Create | Line 2821 by Create |
\ Variable tudp 0 tudp ! | \ Variable tudp 0 tudp ! |
: u, ( n -- udp ) | : u, ( n -- udp ) |
current-region >r user-region activate .regions | current-region >r user-region activate |
X here swap X , tup@ - .regions | X here swap X , tup@ - |
r> activate ; | r> activate ; |
: au, ( n -- udp ) | : au, ( n -- udp ) |