impls/ada/printer.adb

   1 package body Printer is
   2
   3    function Pr_Str (M : Types.Mal_Handle) return String is
   4    begin
   5      if Types.Is_Null (M) then
   6         return "";
   7      else
   8         return Types.To_String (Types.Deref (M).all);
   9      end if;
  10    end Pr_Str;
  11
  12 end Printer;