#lang scheme/base

(require
 "../forth.ss"
 "../purrr.ss" ;; common parsing words like ':' as well as pure+control macros
 "macro.ss"    ;; for f->
 )


(provide (all-defined-out))

;; PIC18 specific parsing words. Note that all symbols referred here
;; need to be accessible from this file.

(substitutions
  (macro)

  ((fstring: name symbol)   (: name f-> string symbol |string,|))

  )