/* Amiga specific extensions */

#include "mem.h"  /* for DEFINE_C_PROC() macro */

/*---------------------------------------------------------------------------*/


SCM_obj X23X23system( str )
SCM_obj str;
{ SCM_obj result;
  char *mark = local_mark();              /* put mark on local C heap    */
  char *command = string_to_c_str( str ); /* convert Scheme string to C  */
  if (command == NULL)
    result = SCM_false;
  else
    result = SCM_int_to_obj( Execute( command, 0L, 0L ) );
  local_release( mark );                  /* get rid of converted string */
  return result;
}


void ext_init()
{
  DEFINE_C_PROC(X23X23system);
}


/*---------------------------------------------------------------------------*/