r549 - cpu/x86 ofw/tokenizer

Author: wmb
Date: 2007-08-16 20:53:12 +0200 (Thu, 16 Aug 2007)
New Revision: 549

Modified:
   cpu/x86/builder.bth
   ofw/tokenizer/tokenize.fth
Log:
Deleted a couple more vestiges of the pstr format, thus completing (I hope)
the job begun by r521.

Modified: cpu/x86/builder.bth
===================================================================
--- cpu/x86/builder.bth	2007-08-15 22:59:54 UTC (rev 548)
+++ cpu/x86/builder.bth	2007-08-16 18:53:12 UTC (rev 549)
@@ -7,4 +7,4 @@
 fload ${BP}/ofw/tokenizer/tokenize.fth	\ Tokenizer
 fload ${BP}/forth/lib/builder.fth	\ Builder

-.( --- Saving builder.dic --- )  "" builder.dic save-forth cr
+.( --- Saving builder.dic --- )  " builder.dic" $save-forth cr

Modified: ofw/tokenizer/tokenize.fth
===================================================================
--- ofw/tokenizer/tokenize.fth	2007-08-15 22:59:54 UTC (rev 548)
+++ ofw/tokenizer/tokenize.fth	2007-08-16 18:53:12 UTC (rev 549)
@@ -1226,7 +1226,7 @@
    init-vars
    init-path

-   save$3 new-file			       ( )
+   save$3 count $new-file		       ( )
    aout-header? @  if  write-header  then      ( )

\ Save the current stack depth