1 files changed, 3 insertions, 2 deletions
diff --git a/src/packrat-util.adb b/src/packrat-util.adb
index dc9968b..c1335e0 100644
--- a/src/packrat-util.adb
+++ b/src/packrat-util.adb
@@ -9,6 +9,7 @@ package body Packrat.Util is
 
 
     package Latin renames Ada.Characters.Latin_1;
+    package Strmaps renames Ada.Strings.Maps;
 
 
 
@@ -17,7 +18,7 @@ package body Packrat.Util is
            (Element : in Character)
         return Boolean is
     begin
-        return False;
+        return Strmaps.Is_In (Element, Set);
     end In_Set;
 
 
@@ -25,7 +26,7 @@ package body Packrat.Util is
            (Element : in Character)
         return Boolean is
     begin
-        return False;
+        return not Strmaps.Is_In (Element, Set);
     end Not_In_Set;