From 3cc35a9414a8ba102a63af64bc5647ea75bc10b2 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Tue, 3 Jan 2023 23:33:54 +0100 Subject: numbers --- app/Code.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'app/Code.hs') diff --git a/app/Code.hs b/app/Code.hs index eb5149c..5ac4ce7 100644 --- a/app/Code.hs +++ b/app/Code.hs @@ -9,7 +9,8 @@ import Operators (Ops) import System.Console.Haskeline (InputT) data Datum - = Atom Int -- unifies a constant + = Atom Int -- unifies a symbolic constant + | Number Int -- unifies a numeric constant | Struct Id -- unifies a structure with arity | VoidRef -- unifies with anything | LocalRef Int -- code-local variable idx (should never occur on heap) -- cgit v1.2.3