Define functions for phase 1

gistfile1.txt

macro compiletimeutils {
  case { $ctu ()} 
    => { letstx $is_stx = [makeIdent("is_stx", #{$ctu})]; 
         return #{function $is_stx(s) {
                  return ((typeof s)=="object") && 
                          !(s[0] == undefined)  &&
                         ((typeof(s[0]["token"]))=="object") } ;} }
   }

macro m { 
  case {_} 
    => { compiletimeutils();
         console.log(is_stx(#{1}));   /* prints true */
         console.log(is_stx(1));      /* prints false */
         console.log(is_stx({}));     /* prints false */
         return #{void(0)} } }
m;