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

quote single dots only

Browse Source
This commit is contained in:
Mark Thom
2020-04-15 13:45:35 -06:00
parent 16e257ea32
commit 3f971174e4
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/prolog/heap_print.rs
View File

@@ -442,7 +442,9 @@ fn non_quoted_token<Iter: Iterator<Item = char>>(mut iter: Iter) -> bool {
if let Some(c) = iter.next() { if let Some(c) = iter.next() {
if small_letter_char!(c) { if small_letter_char!(c) {
iter.all(|c| alpha_numeric_char!(c)) iter.all(|c| alpha_numeric_char!(c))
} else if c != '.' && graphic_token_char!(c) { } else if c == '.' {
iter.next().is_some()
} else if graphic_token_char!(c) {
non_quoted_graphic_token(iter, c) non_quoted_graphic_token(iter, c)
} else if semicolon_char!(c) { } else if semicolon_char!(c) {
iter.next().is_none() iter.next().is_none()

2
src/prolog/toplevel.pl
View File

@@ -123,7 +123,7 @@
atom(Value), atom(Value),
atom_chars(Value, ValueChars), atom_chars(Value, ValueChars),
'$list_last_item'(ValueChars, Char), '$list_last_item'(ValueChars, Char),
Char \== '.', ValueChars \== ['.'],
'$graphic_token_char'(Char). '$graphic_token_char'(Char).
'$write_eqs_and_read_input'(B, VarList) :- '$write_eqs_and_read_input'(B, VarList) :-