gforth/savesys.fs - diff

Return to savesys.fs CVS log

Up to [gforth] / gforth

version 1.14, 2010/12/31 18:09:02	version 1.15, 2011/12/27 16:38:08
Line 17	Line 17
\ You should have received a copy of the GNU General Public License	\ You should have received a copy of the GNU General Public License
\ along with this program. If not, see http://www.gnu.org/licenses/.	\ along with this program. If not, see http://www.gnu.org/licenses/.

: save-mem-dict { addr1 u -- addr2 u }
here { addr2 }
u allot
addr1 addr2 u move
addr2 u ;

: delete-prefix ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 )	: delete-prefix ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 )
\ if c-addr2 u2 is a prefix of c-addr1 u1, delete it	\ if c-addr2 u2 is a prefix of c-addr1 u1, delete it
2over 2over string-prefix? if	2over 2over string-prefix? if