Forth Parser in SchemeBack to Main Links to Forth Parser Evaluator Stack stuff (define-record varref (name)) (define-record lit (datum)) (define-record prim-proc (prim-op)) (define prim-op-names '(+ - / * add3)) (define dictionary '(DUP CR ?DUP dot DROP SWAP TEST OVER ROT !)) (define variable-names 'variable) (define udproc 'colon) ; Scheme reserves use of ";" so ; so : is written out in long hand. (define do-loop 'do)
