[PROLOG SYSTEM ERROR:  Thread 1
	Recursively received fatal signal 11

PROLOG STACK:
]

[pid=2788] Action? a
##</code><code>##

Welcome to SWI-Prolog (Multi-threaded, 64 bits, Version 5.6.64)
Copyright (c) 1990-2008 University of Amsterdam.
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software,
and you are welcome to redistribute it under certain conditions.
Please visit http://www.swi-prolog.org for details.

For help, use ?- help(Topic). or ?- apropos(Word).

% /home/steve/Documents/i_prolog.pl compiled 0.00 sec, 30,056 bytes
SWI-Prolog engine already initialised at /usr/local/lib/perl/5.10.0/Language/Prolog/Yaswi/Low.pm line 63.

##</code><code>##

#!/usr/bin/perl -w
use strict;


package i_observation;


use Wx 0.15 qw[:allclasses];
use strict;
use warnings;
use Wx qw[:everything];
use Wx::Event qw( EVT_MENU );
use base qw(Wx::Frame);
use Carp qw(croak);
use threads ();										# Used for multi-tasking ffmpeg
use Threads;										# Used in Timer to determine state of tasks
use base qw(Wx::Panel Class::Accessor::Fast);
use base qw(Wx::PlComboPopup);
__PACKAGE__->mk_ro_accessors( qw(html_help chm_help comboctrl) );
use Wx::Locale( gettext => 't');
    
use Language::Prolog::Yaswi qw(:load :run :query);
use Language::Prolog::Types::overload;
use Language::Prolog::Sugar
	functors => {location_organ => 'location_organ',
		    location_segment => 'location_segment',
		    listsegments => 'listsegments',
		    listwalls => 'listwalls',
		    diagnosis => 'diagnosis' },
	chains => { orn => ';',
		    andn => ',',
		    add => '+' },
	vars => [qw (X Y Z)];
.
.
.
#  other routines in the package
.
.
.
sub set_location_list{
	
.
.
.
.

	my @files = (t("/home/steve/Documents/i_prolog.pl"));
	swi_init("pl", "-g", "true", "-nosignals"); # Or swi_init("-nosignals");
	swi_consult @files;

       

.
.
.
}