[gforth] ans-report.fs trashes the top of the search order

[Josh Grams]

ans-report.fs replaces the top element of the search order.  I *think*
it just needs an `also` before the first use of `ans-report-words`.  It
doesn't look like there's any place to put a `previous` at the end...

--Josh

Re: [gforth] ans-report.fs trashes the top of the search order

[Josh Grams]

It doesn't look like there's any place to put a `previous` at the end...

Ack.  I take that back, there is a place to put a `previous`.  And it
also trashes the current wordlist.  So...I suggest the following patch.

--Josh
--- a/ans-report.fs	2010-08-17 19:11:14.0 -0400
+++ b/ans-report.fs	2010-08-17 19:11:22.0 -0400
@@ -38,8 +38,7 @@
 
 \ !! ignore struct-voc stuff (dummy, [then] etc.).
 
-vocabulary ans-report-words
-get-current also ans-report-words definitions
+vocabulary ans-report-words ans-report-words definitions
 
 : wordset ( name -- )
 latestxt body
@@ -172,7 +171,7 @@
 cell +loop
 drop ;
 
-set-current
+forth definitions
 ans-report-words
 
 : print-ans-report ( -- )
@@ -196,4 +195,4 @@
 \ the following sequence ' replace-word forth execute is necessary
 \ to restore the default search order without effect on the used
 \ word lists
-' findnote-name ' find-name ' replace-word previous execute
+' findnote-name ' find-name ' replace-word forth execute