From 9253ee6010aee34b9349d21e17c76bf7123331ef Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 23 Apr 2010 20:46:14 +0000
Subject: fix parsing of literals

---
 testsuite/runtime/parser/Literals.gf    | 2 ++
 testsuite/runtime/parser/LiteralsCnc.gf | 1 +
 2 files changed, 3 insertions(+)

(limited to 'testsuite')

diff --git a/testsuite/runtime/parser/Literals.gf b/testsuite/runtime/parser/Literals.gf
index a32940e79..0962c0356 100644
--- a/testsuite/runtime/parser/Literals.gf
+++ b/testsuite/runtime/parser/Literals.gf
@@ -4,5 +4,7 @@ abstract Literals = {
   fun IsString  : String -> S ;
       IsInteger : Int    -> S ;
       IsFloat   : Float  -> S ;
+      
+      IsEq : Int -> S ;
 
 }
\ No newline at end of file
diff --git a/testsuite/runtime/parser/LiteralsCnc.gf b/testsuite/runtime/parser/LiteralsCnc.gf
index d91a222c8..48da0119e 100644
--- a/testsuite/runtime/parser/LiteralsCnc.gf
+++ b/testsuite/runtime/parser/LiteralsCnc.gf
@@ -5,5 +5,6 @@ lincat S = Str ;
 lin IsString  x = x.s ++ "is string" ;
 lin IsInteger x = x.s ++ "is integer" ;
 lin IsFloat   x = x.s ++ "is float" ;
+lin IsEq      x = x.s ++ "=" ++ x.s ;
 
 }
\ No newline at end of file
-- 
cgit v1.2.3