gforth/savesys.fs - diff

Return to savesys.fs CVS log

Up to [gforth] / gforth

version 1.13, 2010/12/30 21:46:14	version 1.15, 2011/12/27 16:38:08
Line 1	Line 1
\ image dump 15nov94py	\ image dump 15nov94py

\ Copyright (C) 1995,1997,2003,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,2003,2006,2007,2010 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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