RosettaCodeData/Task/Stack-traces/FutureBasic/stack-traces.basic

output file @"Rosetta Code Stack Traces"

include "NSLog.incl"

void local fn StackTrace
  CFArrayRef stackSymbols = fn ThreadCallStackSymbols
  for CFStringRef symbol in stackSymbols
    NSLog( @"%@", symbol )
  next
end fn

fn StackTrace

HandleEvents