summaryrefslogtreecommitdiff
path: root/src/ExtractToFStar.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/ExtractToFStar.ml')
-rw-r--r--src/ExtractToFStar.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/ExtractToFStar.ml b/src/ExtractToFStar.ml
index 2994d95f..a3972578 100644
--- a/src/ExtractToFStar.ml
+++ b/src/ExtractToFStar.ml
@@ -692,6 +692,7 @@ let rec extract_texpression (ctx : extraction_ctx) (fmt : F.formatter)
let _ = extract_typed_rvalue ctx fmt inside rv in
()
| Call call -> (
+ log#ldebug (lazy ("ctx_get_function: " ^ show_fun_id call.func));
match (call.func, call.args) with
| Unop unop, [ arg ] ->
ctx.fmt.extract_unop (extract_texpression ctx fmt) fmt inside unop arg