--- a/ExternalFunctionCallback.st Mon Dec 12 19:59:34 2011 +0100
+++ b/ExternalFunctionCallback.st Mon Dec 12 20:30:09 2011 +0100
@@ -493,7 +493,7 @@
code
self hasCode ifFalse:[
- self generate
+ self generateClosure
].
^ super code
@@ -829,9 +829,9 @@
!ExternalFunctionCallback class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.17 2011-12-12 18:59:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.18 2011-12-12 19:30:09 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.17 2011-12-12 18:59:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.18 2011-12-12 19:30:09 cg Exp $'
! !