unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-14 16:28:34 +03:00
Code Issues Projects Releases Wiki Activity

Fixed typo causing all arithmetic ops to use addition!

Browse Source
This commit is contained in:
Paul Chiusano 2015-03-04 12:57:52 -05:00
parent ca35335267
commit 68d97a5a7f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
node/src/Node.hs
View File

@ -31,7 +31,7 @@ numeric2 sym f = I.Primop 2 $ \xs -> case xs of
xr <- whnf x
yr <- whnf y
pure $ case (xr, yr) of
(Term.Lit (Term.Number x), Term.Lit (Term.Number y)) -> Term.Lit (Term.Number (x + y))
(Term.Lit (Term.Number x), Term.Lit (Term.Number y)) -> Term.Lit (Term.Number (f x y))
(x,y) -> sym `Term.App` x `Term.App` y
_ -> error "unpossible"