Fix function call diagnostics to use diag_frame

1 files changed, 8 insertions, 9 deletions

diff --git a/libbuild2/function.cxx b/libbuild2/function.cxx
index f790809..6fa9709 100644
--- a/libbuild2/function.cxx
+++ b/libbuild2/function.cxx
@@ -207,16 +207,15 @@ namespace build2
       {
         // Print the call location in case the function fails.
         //
-        auto g (
-          make_exception_guard (
-            [fa, &loc, &print_call] ()
+        auto df = make_diag_frame (
+          [fa, &loc, &print_call] (const diag_record& dr)
+          {
+            if (fa)
             {
-              if (fa && verb != 0)
-              {
-                diag_record dr (info (loc));
-                dr << "while calling "; print_call (dr.os);
-              }
-            }));
+              dr << info (loc) << "while calling ";
+              print_call (dr.os);
+            }
+          });
 
         auto f (ovls.back ());