From 2a17985aa34bce961bf9f581675cc9e1a7a3ad4c Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Sun, 21 Apr 2013 22:36:54 +0100
Subject: [PATCH] Update error message text; spotted bu Sergei Trofimovich

---
 rts/Adjustor.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/Adjustor.c b/rts/Adjustor.c
index e4d6e8c529cd..9f879de72917 100644
--- a/rts/Adjustor.c
+++ b/rts/Adjustor.c
@@ -132,7 +132,7 @@ createAdjustor (int cconv,
     }
 
     r = ffi_prep_closure_loc(cl, cif, (void*)wptr, hptr/*userdata*/, code);
-    if (r != FFI_OK) barf("ffi_prep_closure failed: %d", r);
+    if (r != FFI_OK) barf("ffi_prep_closure_loc failed: %d", r);
 
     return (void*)code;
 }