gforth/savesys.fs - diff

Return to savesys.fs CVS log

Up to [gforth] / gforth

version 1.2, 1998/12/08 22:02:50	version 1.4, 2002/09/14 08:20:20
Line 16	Line 16

\ 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, write to the Free Software	\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

: save-string-dict { addr1 u -- addr2 u }	: save-string-dict { addr1 u -- addr2 u }
here { addr2 }	here { addr2 }
Line 45	Line 45
forthstart	forthstart
begin \ search for start of file ("#! " at a multiple of 8)	begin \ search for start of file ("#! " at a multiple of 8)
8 -	8 -
dup 3 s" #! " compare 0=	dup 3 s" #! " str=
until ( imagestart )	until ( imagestart )
here over - r@ write-file throw	here over - r@ write-file throw
r> close-file throw ;	r> close-file throw ;