rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove unnecessary use of partial_string in bimetatrans example

Browse Source
This commit is contained in:
Mark Thom
2020-04-11 22:02:17 -06:00
parent fff96e69db
commit aedffb3cfe
1 changed files with 1 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/prolog/examples/bimetatrans_ruleml.pl
View File

@@ -1,7 +1,6 @@
:- module(ruleml_xml_parser, [parse_ruleml/3]). :- module(ruleml_xml_parser, [parse_ruleml/3]).
:- use_module(library(dcgs)). :- use_module(library(dcgs)).
:- use_module(library(iso_ext)).
:- set_prolog_flag(double_quotes, chars). :- set_prolog_flag(double_quotes, chars).
@@ -781,11 +780,7 @@ ruleml_var_contents(Cs) -->
* constant_chars(+Type, +Constant, -Chars) * constant_chars(+Type, +Constant, -Chars)
*/ */
constant_chars(string, Constant, Chars) :- constant_chars(string, Chars, Chars).
( var(Constant) ->
catch(partial_string(Chars, Constant, []), _, false)
; catch(partial_string(Constant, Chars, []), _, false)
).
constant_chars(number, Constant, Chars) :- constant_chars(number, Constant, Chars) :-
catch(number_chars(Constant, Chars), _, false). catch(number_chars(Constant, Chars), _, false).
constant_chars(symbol, Constant, Chars) :- constant_chars(symbol, Constant, Chars) :-