change from xsi to iso in bimetatrans, correct atomic/1 failure (#343)
This commit is contained in:
@@ -790,7 +790,7 @@ constant_chars(symbol, Constant, Chars) :-
|
|||||||
|
|
||||||
/*
|
/*
|
||||||
* ruleml_data//1 delegates to ruleml_data_contents//2 to determine
|
* ruleml_data//1 delegates to ruleml_data_contents//2 to determine
|
||||||
* the contents of <Data> nodes, with adjoining xsi:type elements.
|
* the contents of <Data> nodes, with adjoining iso:type elements.
|
||||||
*
|
*
|
||||||
* constant_chars/3 performs type-driven conversion between
|
* constant_chars/3 performs type-driven conversion between
|
||||||
* Prolog/'$V' and RuleML/XML in both directions;
|
* Prolog/'$V' and RuleML/XML in both directions;
|
||||||
@@ -800,13 +800,13 @@ constant_chars(symbol, Constant, Chars) :-
|
|||||||
|
|
||||||
ruleml_data(Name) -->
|
ruleml_data(Name) -->
|
||||||
( { var(Name) } ->
|
( { var(Name) } ->
|
||||||
list_ws("<Data xsi:type=\""),
|
list_ws("<Data iso:type=\""),
|
||||||
prolog_symbol(Type),
|
prolog_symbol(Type),
|
||||||
list_ws("\">"),
|
list_ws("\">"),
|
||||||
ruleml_data_contents(Type, Cs),
|
ruleml_data_contents(Type, Cs),
|
||||||
{ constant_chars(Type, Name, Cs) },
|
{ constant_chars(Type, Name, Cs) },
|
||||||
list_ws("</Data>")
|
list_ws("</Data>")
|
||||||
; "<Data xsi:type=\"",
|
; "<Data iso:type=\"",
|
||||||
{ constant_chars(Type, Name, Cs) },
|
{ constant_chars(Type, Name, Cs) },
|
||||||
prolog_symbol(Type),
|
prolog_symbol(Type),
|
||||||
"\">",
|
"\">",
|
||||||
|
|||||||
@@ -2400,7 +2400,13 @@ impl MachineState {
|
|||||||
let d = self.store(self.deref(self[r1]));
|
let d = self.store(self.deref(self[r1]));
|
||||||
|
|
||||||
match d {
|
match d {
|
||||||
Addr::Con(_) => self.p += 1,
|
Addr::Char(_) |
|
||||||
|
Addr::CharCode(_) |
|
||||||
|
Addr::Con(_) |
|
||||||
|
Addr::EmptyList |
|
||||||
|
Addr::Fixnum(_) |
|
||||||
|
Addr::Float(_) |
|
||||||
|
Addr::Usize(_) => self.p += 1,
|
||||||
_ => self.fail = true,
|
_ => self.fail = true,
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user