From 3fa431a2268a11dec6fd82c8f9b59cc2d0af9a93 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 13 Jan 2021 18:31:27 +1100 Subject: Stamp/Ignore now Stamp/Discard/Ignore --- example/simple_calc.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'example/simple_calc.adb') diff --git a/example/simple_calc.adb b/example/simple_calc.adb index 4c85887..e1a66c1 100644 --- a/example/simple_calc.adb +++ b/example/simple_calc.adb @@ -47,7 +47,7 @@ procedure Simple_Calc is function Sat_Blank is new My_Rat.Lexers.Satisfy (Packrat.Utilities.Is_Whitespace); function Many_Blank is new My_Rat.Lexers.Many (Sat_Blank, 1); - function Whitespace is new My_Rat.Lexers.Ignore (Whitespace, Many_Blank); + function Whitespace is new My_Rat.Lexers.Discard (Whitespace, Many_Blank); package Scanner is new My_Rat.Lexers.Scan_Once ((Whitespace'Access, Number'Access, Operator'Access)); -- cgit