From c1a999bfb128da76a5dc2f97bd7d5d9f9c41667f Mon Sep 17 00:00:00 2001
From: pmoura <pmoura@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 9 Nov 2007 19:05:00 +0000
Subject: [PATCH] Logtalk 2.30.8 files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1989 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 Logtalk/CUSTOMIZE.txt      |  2 +-
 Logtalk/INSTALL.txt        |  2 +-
 Logtalk/QUICK_START.txt    |  2 +-
 Logtalk/README.txt         |  2 +-
 Logtalk/RELEASE_NOTES.txt  |  8 +++++++-
 Logtalk/UPGRADING.txt      |  2 +-
 library/logtalk/logtalk.pl | 14 +++++++++++---
 7 files changed, 23 insertions(+), 9 deletions(-)

diff --git a/Logtalk/CUSTOMIZE.txt b/Logtalk/CUSTOMIZE.txt
index 0d5960208..a7ffb2768 100644
--- a/Logtalk/CUSTOMIZE.txt
+++ b/Logtalk/CUSTOMIZE.txt
@@ -1,6 +1,6 @@
 ================================================================
 Logtalk - Open source object-oriented logic programming language
-Release 2.30.7
+Release 2.30.8
 
 Copyright (c) 1998-2007 Paulo Moura.  All Rights Reserved.
 ================================================================
diff --git a/Logtalk/INSTALL.txt b/Logtalk/INSTALL.txt
index ed5da799e..6d6a184dd 100644
--- a/Logtalk/INSTALL.txt
+++ b/Logtalk/INSTALL.txt
@@ -1,6 +1,6 @@
 ================================================================
 Logtalk - Open source object-oriented logic programming language
-Release 2.30.7
+Release 2.30.8
 
 Copyright (c) 1998-2007 Paulo Moura.  All Rights Reserved.
 ================================================================
diff --git a/Logtalk/QUICK_START.txt b/Logtalk/QUICK_START.txt
index 01ddb5225..ba92a07dc 100644
--- a/Logtalk/QUICK_START.txt
+++ b/Logtalk/QUICK_START.txt
@@ -1,6 +1,6 @@
 ================================================================
 Logtalk - Open source object-oriented logic programming language
-Release 2.30.7
+Release 2.30.8
 
 Copyright (c) 1998-2007 Paulo Moura.  All Rights Reserved.
 ================================================================
diff --git a/Logtalk/README.txt b/Logtalk/README.txt
index f6ba88e25..03da9341c 100644
--- a/Logtalk/README.txt
+++ b/Logtalk/README.txt
@@ -1,6 +1,6 @@
 ================================================================
 Logtalk - Open source object-oriented logic programming language
-Release 2.30.7
+Release 2.30.8
 
 Copyright (c) 1998-2007 Paulo Moura.  All Rights Reserved.
 ================================================================
diff --git a/Logtalk/RELEASE_NOTES.txt b/Logtalk/RELEASE_NOTES.txt
index 894089ec0..928dfd7fd 100644
--- a/Logtalk/RELEASE_NOTES.txt
+++ b/Logtalk/RELEASE_NOTES.txt
@@ -1,6 +1,6 @@
 ================================================================
 Logtalk - Open source object-oriented logic programming language
-Release 2.30.7
+Release 2.30.8
 
 Copyright (c) 1998-2007 Paulo Moura.  All Rights Reserved.
 ================================================================
@@ -10,6 +10,12 @@ RELEASE NOTES
 =============
 
 
+2.30.8 - November 9, 2007
+
+	Fixed bug in the compilation of synchronized predicates that breaks 
+	Logtalk on single-threaded Prolog compilers.
+
+
 2.30.7 - November 5, 2007
 
 	Updated the multi-threading built-in predicates threaded_notify/1 and 
diff --git a/Logtalk/UPGRADING.txt b/Logtalk/UPGRADING.txt
index 9a71ebc17..2a84a177b 100644
--- a/Logtalk/UPGRADING.txt
+++ b/Logtalk/UPGRADING.txt
@@ -1,6 +1,6 @@
 ================================================================
 Logtalk - Open source object-oriented logic programming language
-Release 2.30.7
+Release 2.30.8
 
 Copyright (c) 1998-2007 Paulo Moura.  All Rights Reserved.
 ================================================================
diff --git a/library/logtalk/logtalk.pl b/library/logtalk/logtalk.pl
index 52d79f93c..1d2b64658 100644
--- a/library/logtalk/logtalk.pl
+++ b/library/logtalk/logtalk.pl
@@ -2,7 +2,7 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  Logtalk - Open source object-oriented logic programming language
-%  Release 2.30.7
+%  Release 2.30.8
 %
 %  Copyright (c) 1998-2007 Paulo Moura.  All Rights Reserved.
 %
@@ -1695,7 +1695,7 @@ current_logtalk_flag(Flag, Value) :-
 	'$lgt_default_flag'(Flag, Value),
 	\+ '$lgt_current_flag_'(Flag, _).
 
-current_logtalk_flag(version, version(2, 30, 7)).
+current_logtalk_flag(version, version(2, 30, 8)).
 
 
 
@@ -9611,7 +9611,15 @@ current_logtalk_flag(version, version(2, 30, 7)).
 
 '$lgt_fix_synchronized_preds' :-
 	\+ '$lgt_default_flag'(threads, on),
-	!.
+	!,
+	(	retract('$lgt_pp_def_'(Def)),
+		assertz('$lgt_pp_fdef_'(Def)),
+		fail
+	;	retract('$lgt_pp_ddef_'(DDef)),
+		assertz('$lgt_pp_fddef_'(DDef)),
+		fail
+	;	true
+	).
 
 '$lgt_fix_synchronized_preds' :-
 	(	'$lgt_pp_object_'(_, _, _, _, _, _, _, _, _, _, _) ->