ExecutableFunction.st
changeset 19330 ecda55e8c18a
parent 19111 544024aa5b88
child 19332 9686fae7951b
child 20511 a23fe67b2d89
--- a/ExecutableFunction.st	Thu Mar 10 22:13:54 2016 +0100
+++ b/ExecutableFunction.st	Fri Mar 11 00:35:21 2016 +0100
@@ -219,10 +219,12 @@
 
 hasCode
     "return true, if this codeObject has machinecode to execute."
-%{
+
+%{  /* NOCONTEXT */
     if (__INST(code_)) {
         RETURN (true);
     }
+    RETURN (false);
 %}.
     ^ false