minor change to an error message

svn: r14070
2009-03-12 09:07:41 +00:00 · 2009-03-12 09:07:41 +00:00 · e59b597753
commit e59b597753
parent 813e16489e
1 changed files with 1 additions and 1 deletions
--- a/src/foreign/foreign.c
+++ b/src/foreign/foreign.c
@ -1621,7 +1621,7 @@ static void* SCHEME2C(Scheme_Object *type, void *dst, long delta,
        return NULL; /* hush the compiler */
      }
    case FOREIGN_fpointer:
-      if (!ret_loc) scheme_wrong_type("Scheme->C","non-void-C-type",0,1,&(type));
+      if (!(ret_loc)) scheme_wrong_type("Scheme->C","fpointer",0,1,&(val));
      break;
    case FOREIGN_struct:
      if (!SCHEME_FFIANYPTRP(val))