Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tag: svn-import
Fetching contributors…

Cannot retrieve contributors at this time

15 lines (13 sloc) 0.466 kB
*** parse1.yrl Thu Jul 10 13:50:11 2008
--- parse8.yrl Tue Oct 21 12:57:15 2008
***************
*** 744,749 ****
--- 744,752 ----
normalise({op,_,'-',{char,_,I}}) -> -I; %Weird, but compatible!
normalise({op,_,'-',{integer,_,I}}) -> -I;
normalise({op,_,'-',{float,_,F}}) -> -F;
+ %% Name/Arity case
+ normalise({op,_,'/',{atom,_,F},{integer,_,N}}) when N >= 0 ->
+ {F,N};
normalise(X) -> erlang:fault({badarg, X}).
normalise_list([H|T]) ->
Jump to Line
Something went wrong with that request. Please try again.