uf-reader.lisp

#|
  $ cat test.f
  #!forth
  : <= over over < rot swap = or ;
  : fib dup 0 swap <= if drop 0 else dup 1 = if drop 1 else
    dup 1 swap - fib swap 2 swap - fib + then then ;
  10 fib
  $ ros run -l uf-reader.lisp -l test.f -q
|#
(require 'uf)
(in-package :cl-user)
(defun uf-reader (s a b)
  (declare (ignorable a b))
  (read-line s) ;; Drop first line
  (uf:execute (uf:init-vm (uf:parse s))))
(set-dispatch-macro-character #\# #\! #'uf-reader)