Diff for /gforth/ans-report.fs between versions 1.14 and 1.15

version 1.14, 2006/12/17 15:38:26 version 1.15, 2006/12/17 16:18:09
Line 74  wordset STRING Line 74  wordset STRING
 wordset TOOLS  wordset TOOLS
 wordset TOOLS-EXT  wordset TOOLS-EXT
 wordset TOOLS-EXT-obsolescent  wordset TOOLS-EXT-obsolescent
   
   \ www.forth200x.org CfV extension names
   wordset X:deferred
   wordset X:extension-query
   wordset X:parse-name
   wordset X:defined
   wordset X:required
   wordset X:ekeys
   wordset X:fp-stack
   
 wordset non-ANS  wordset non-ANS
   
 ans-report-words definitions  ans-report-words definitions
   
 : answord ( "name wordset pronounciation" -- )  : standardword { D: wordname D: wordset -- }
     \ check the documentaion of an ans word  
     name { D: wordname }  
     name { D: wordset }  
     name { D: pronounciation }  
     wordname find-name      wordname find-name
     ?dup-if      ?dup-if
         sp@ cell nextname create drop          sp@ cell nextname create drop
         wordset wordsets search-wordlist 0= abort" wordlist unknown" ,          wordset wordsets search-wordlist 0= abort" wordset unknown" ,
     endif ;      endif ;
       
   : answord ( "name wordset pronounciation" -- )
       \ check the documentation of an ans word
       parse-name parse-name parse-name 2drop standardword ;
   
   : xword ( "name wordset" )
       parse-name parse-name standardword ;
   
 table constant answords answords set-current  table constant answords answords set-current
 warnings @ warnings off  warnings @ warnings off
 include ./answords.fs  include ./answords.fs
   include ./xwords.fs
 warnings !  warnings !
 ans-report-words definitions  ans-report-words definitions
   

Removed from v.1.14  
changed lines
  Added in v.1.15


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>