ExternalFunctionCallback.st
changeset 10618 343d0bf4646a
parent 10617 a9dc57b77568
child 10620 c30c866d4b3d
--- a/ExternalFunctionCallback.st	Wed Jun 20 16:59:21 2007 +0200
+++ b/ExternalFunctionCallback.st	Wed Jun 20 17:42:58 2007 +0200
@@ -651,7 +651,7 @@
 #endif
 
 #else /* no FFI support */
-    __FAIL__(@symbol(FFINotSupported));
+    failureCode = @symbol(FFINotSupported);
 #endif /* HAVE_FFI */
 getOutOfHere: ;
 %}.
@@ -685,5 +685,5 @@
 !ExternalFunctionCallback class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.7 2007-06-20 14:59:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.8 2007-06-20 15:42:58 stefan Exp $'
 ! !