Family Day update

Task/Executable-library/Phix/executable-library-1.phix

@@ -1,20 +1,3 @@
-function isMainOrInclude()
--- returns 1 if called from the main file, 0 if from an include
-integer res
-    #ilASM{
-        [32]
-            mov eax,[ebp+20]    -- prev_ebp
-            mov eax,[eax+8]     -- rtn
-            mov [res],eax
-        [64]
-            mov rax,[rbp+40]    -- prev_ebp
-            mov rax,[rax+16]    -- rtn
-            mov [res],rax
-        []
-          }
-    return res=21 -- (21=T_maintls)
-end function
-
 --global (if you want to be able to call this from test.exw)
 function hailstone(atom n)
 sequence s = {n}
@@ -42,7 +25,7 @@ integer count = 1
     return count
 end function
 
-if isMainOrInclude() then
+if include_file()==1 then
 
     sequence s = hailstone(27)
     integer ls = length(s)