From a0b5f750165c96eeab80c012fbe5ee3854c5d9fa Mon Sep 17 00:00:00 2001 From: pmoura Date: Tue, 9 Oct 2007 11:56:00 +0000 Subject: [PATCH] Corrected typo (missing quote) that resulted in a syntax error at startup. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1949 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- pl/directives.yap | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pl/directives.yap b/pl/directives.yap index 5411d820e..9909f5af1 100644 --- a/pl/directives.yap +++ b/pl/directives.yap @@ -317,12 +317,12 @@ yap_flag(version,X) :- yap_flag(version_data,X) :- var(X), !, - '$get_version_codes(Major,Minor,Patch), + '$get_version_codes'(Major,Minor,Patch), X = yap(Major, Minor, Patch, _). yap_flag(version_data,X) :- '$do_error'(permission_error(modify,flag,version),yap_flag(version_data,X)). -'$get_version_codes(Major,Minor,Patch) :- +'$get_version_codes'(Major,Minor,Patch) :- get_value('$version_name',X), atom_codes(X,[0'Y,0'a,0'p,0'-|VersionTag]), '$fetch_num_code'(VersionTag,0,Major,L1),