words_fs

\ words_fs

\ This file is part of Sfera, a library for SuperForth
\ http://programandala.net/en.program.sfera.html

\ Author: Marcos Cruz (programandala.net)

\ ==============================================================
\ License

\ You may do whatever you want with this work, so long as you
\ retain the copyright/authorship/acknowledgment/credit
\ notice(s) and this license in all redistributed copies and
\ derived works.  There is no warranty.

\ ==============================================================
\ History

\ 2016-01-06: Code extracted from <boot.fs>.
\
\ 2016-01-12: Updated: `link>link? 0=` instead of `first-word?`.
\
\ 2016-02-08: Removed `end-of-file`.

\ ==============================================================

: words  ( -- )
  latest ( lfa )
  begin
    dup id. space space-paused
    link>link? 0= escape-key? or
  until  drop  ;


\ vim: filetype=superforthsfera