Hi,
Bruce Korb <[EMAIL PROTECTED]> writes:
> Grumble, grumble. Anyway, this belongs in your code. We argued about this
> before and someone said, "well, you could do it in any of several ways,
> so we won't do it at all." This function is entirely equivalent to
> "scm_c_eval_string" except that error results show file name and line
> number.
Sorry if I'm just re-stating what you were already answered: Can't you
implement this as a small Scheme procedure? Something along the lines
of:
(read-enable 'positions)
(define (eval-from-file file)
(with-input-from-file file
(lambda ()
(let loop ((sexp (read))
(result #f))
(if (eof-object? sexp)
result
(begin
(format #t "evaluating `~a' from ~a:~a:~a~%"
sexp (port-filename (current-input-port))
(source-property sexp 'line)
(source-property sexp 'column))
(loop (read) (primitive-eval sexp))))))))
This would certainly be easier for you to maintain.
Thanks,
Ludovic.
_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel
