Skip to content
Newer
Older
100644 15 lines (13 sloc) 466 Bytes
4347e6e @RaimoNiskanen Modifications and new title to EEP 24
RaimoNiskanen authored Oct 22, 2008
1 *** parse1.yrl Thu Jul 10 13:50:11 2008
2 --- parse8.yrl Tue Oct 21 12:57:15 2008
3 ***************
4 *** 744,749 ****
5 --- 744,752 ----
6 normalise({op,_,'-',{char,_,I}}) -> -I; %Weird, but compatible!
7 normalise({op,_,'-',{integer,_,I}}) -> -I;
8 normalise({op,_,'-',{float,_,F}}) -> -F;
9 + %% Name/Arity case
10 + normalise({op,_,'/',{atom,_,F},{integer,_,N}}) when N >= 0 ->
11 + {F,N};
12 normalise(X) -> erlang:fault({badarg, X}).
13
14 normalise_list([H|T]) ->
Something went wrong with that request. Please try again.