From: Markus Triska <triska@metalevel.at>
Date: Wed, 3 May 2023 19:56:04 +0000 (+0200)
Subject: ENHANCED: allow Roman numerals in strings
X-Git-Tag: v0.9.2~123^2~23
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=5e124ccf44a5b3ef0cdbbe62c12bc1d7e76cda56;p=scryer-prolog.git

ENHANCED: allow Roman numerals in strings

Example:

    ?- X = "ↁ".
       X = "ↁ".

This addresses #1790.
---

diff --git a/src/parser/macros.rs b/src/parser/macros.rs
index 27b106fc..3e6826c9 100644
--- a/src/parser/macros.rs
+++ b/src/parser/macros.rs
@@ -20,7 +20,7 @@ macro_rules! alpha_char {
 #[macro_export]
 macro_rules! alpha_numeric_char {
     ($c: expr) => {
-        $crate::alpha_char!($c) || $crate::decimal_digit_char!($c)
+        $crate::alpha_char!($c) || $c.is_numeric()
     };
 }