Parse , and make xfy do what it should

1 files changed, 5 insertions, 1 deletions

diff --git a/parser.c b/parser.c
index 4e88013..9e4edf1 100644
--- a/parser.c
+++ b/parser.c
@@ -158,6 +158,10 @@ term(void)
 		result = mknumber(NumberFloat, 0, lookahead.dval);
 		match(FloatTok);
 		break;
+	case CommaTok:
+		result = mkatom(L",");
+		match(CommaTok);
+		break;
 	default:
 		print("Cant parse term of token type %d\n", lookahead.tag);
 		syntaxerror("term");
@@ -219,7 +223,7 @@ parseoperators(Term *list)
 		for(i = 0; i < length; i++){
 			if(infos[i].type == 0)
 				continue;
-			if(infos[i].level == lowest && infos[i].type == Xfy && i == index+1)
+			if(infos[i].level == lowest && infos[i].type == Xfy)
 				index = i;
 			else if(infos[i].level < lowest){
 				index = i;