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