--- 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 $'
! !