eval: refactor op_prof to support reuse.

* eval.c (prof_call): New function, contents based on op_prof.
(struct prof_ctx): New struct type.
(op_prof_callback): New static function.
(op_prof): Reduced to call to prof_call, passing context
through to callback which performs the evaluation that is
timed.

* eval.h (prof_call): Declared.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.h b/eval.h
index 6261821d..fa0dc88a 100644
--- a/eval.h
+++ b/eval.h
@@ -78,6 +78,7 @@ val expand_quasi(val quasi_forms, val menv);
 val load(val target);
 val expand(val form, val menv);
 val expand_forms(val forms, val menv);
+val prof_call(val (*fun)(mem_t *ctx), mem_t *ctx);
 val bindable(val obj);
 val mapcarv(val fun, struct args *lists);
 val mapcarl(val fun, val list_of_lists);