Dennis Ruffer wrote:
>
> I'll wait (;anxiously;) for a fix then. DaR
Index: savesys.fs
===================================================================
RCS file: /usr/local/lib/cvs-repository/src-master/gforth/savesys.fs,v
retrieving revision 1.4
diff -u -r1.4 savesys.fs
--- savesys.fs 2002/09/14 08:20:20 1.4
+++ savesys.fs 2003/02/06 16:43:33
@@ -41,6 +41,7 @@
: dump-fi ( addr u -- )
w/o bin create-file throw >r
update-image-included-files
+ update-image-order
here forthstart - forthstart 2 cells + !
forthstart
begin \ search for start of file ("#! " at a multiple of 8)
Index: search.fs
===================================================================
RCS file: /usr/local/lib/cvs-repository/src-master/gforth/search.fs,v
retrieving revision 1.22
diff -u -r1.22 search.fs
--- search.fs 2003/01/20 17:07:38 1.22
+++ search.fs 2003/02/06 16:43:34
@@ -149,16 +149,25 @@
\G order (for Gforth, this is the word list @code{Root}).
1 vp! Root also ;
+: update-image-order ( -- )
+ \ save search order here, let vp point there
+ here vp over vp @ 1+ cells
+ dup allot move
+ to vp ;
+
: init-vp ( -- )
- $10 TO maxvp
- maxvp 1+ cells allocate throw TO vp
- Only Forth also definitions ;
+ vp @ $10 max to maxvp
+ maxvp 1+ cells allocate throw
+ vp over vp @ 1+ cells move
+ TO vp ;
:noname
init-vp DEFERS 'cold ;
IS 'cold
+
+here 0 , to vp
-init-vp
+init-vp Only Forth also definitions
\ set initial search order 14may93py
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
