(require-extension posix) (define (make-url module-name symbol) (conc "http://chicken.wiki.br/Unit " module-name "#" symbol)) (define (quoted symbol) (cadr symbol)) (for-each (lambda (f) (let* ((contents (with-input-from-file f read)) (module-name (quoted (cadr contents)))) (for-each (lambda (symbol) (write (cons symbol (make-url module-name symbol))) (newline)) (quoted (caddr contents))))) (glob "*.import.scm"))