jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Added missing boolean operator: XOR.

Browse source
This commit is contained in:
Adrien Guatto 2010-08-02 16:13:58 +02:00
parent 41bad3d8c4
commit e3a03806e4
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/heptagon/parsing/hept_lexer.mll
View file

@ -65,7 +65,7 @@ List.iter (fun (str,tok) -> Hashtbl.add keyword_table str tok) [
"mod", INFIX3("mod");
"land", INFIX3("land");
"lor", INFIX2("lor");
"lxor", INFIX2("lxor");
"xor", INFIX2("xor");
"lsl", INFIX4("lsl");
"lsr", INFIX4("lsr");
"asr", INFIX4("asr")

1
lib/pervasives.epi
View file

@ -23,6 +23,7 @@ val fun (>)(int;int) returns (bool)
val fun (>.)(float;float) returns (bool)
val fun (not)(bool) returns (bool)
val fun (or)(bool;bool) returns (bool)
val fun (xor)(bool;bool) returns (bool)
val fun (~-)(int) returns (int)
val fun (~-.)(float) returns (float)