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

make partial strings accept characters (#268)

Browse Source
This commit is contained in:
Mark Thom
2020-02-21 13:08:03 -07:00
parent 564622e38b
commit 589dc34b99
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/prolog/machine/machine_state.rs
View File

@@ -276,8 +276,10 @@ impl MachineState {
let mut iter = addrs.iter(); let mut iter = addrs.iter();
while let Some(addr) = iter.next() { while let Some(addr) = iter.next() {
let addr = self.store(self.deref(addr.clone()));
match addr { match addr {
&Addr::Con(Constant::String(n, ref s)) Addr::Con(Constant::String(n, ref s))
if self.flags.double_quotes.is_chars() => { if self.flags.double_quotes.is_chars() => {
if s.len() < n { if s.len() < n {
chars += &s[n ..]; chars += &s[n ..];
@@ -287,10 +289,10 @@ impl MachineState {
return Err(MachineError::type_error(ValidType::Character, addr.clone())); return Err(MachineError::type_error(ValidType::Character, addr.clone()));
} }
} }
&Addr::Con(Constant::Char(c)) => { Addr::Con(Constant::Char(c)) => {
chars.push(c); chars.push(c);
} }
&Addr::Con(Constant::Atom(ref name, _)) Addr::Con(Constant::Atom(ref name, _))
if name.as_str().len() == 1 => { if name.as_str().len() == 1 => {
chars += name.as_str(); chars += name.as_str();
} }