gistfile1.c

  if (!body->lib_handle) {
      INTVAL pos = STRING_index(interp, $2, Parrot_str_new(interp, ".bundle", 0), 0);
      if (pos >= 0) {
          STRING  *lib_name_alternative = Parrot_str_replace(interp, $2, pos, 7, Parrot_str_new(interp, ".dylib", 0));
          lib_name_2 = Parrot_str_to_cstring(interp, lib_name_alternative);
          body->lib_name = lib_name_2;
          body->lib_handle = dlLoadLibrary(strlen(lib_name_2) ? lib_name_2 : NULL);
      }
    }