Sun Apr 26 00:15:15 CEST 2009

identifier -> source path

From PLT list:

(define (definition-source id)
  (let ([binding (identifier-binding id)])
    (and (list? binding)
          (module-path-index-resolve (car binding))))))

So.. next problem: how to parse this in forth code?

It would be great if all code could be segmented first, then properly
parsed one definition at a time.

This is limitation of Forth syntax, which is a consequence of its
imperative nature..  So let's stick to the imperative nature and solve