diff options
Diffstat (limited to 'prototypes/Infer.hs')
-rw-r--r-- | prototypes/Infer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/prototypes/Infer.hs b/prototypes/Infer.hs index 6e261c12..86f6053e 100644 --- a/prototypes/Infer.hs +++ b/prototypes/Infer.hs | |||
@@ -1637,7 +1637,7 @@ parseTerm ns PrecAtom e = | |||
1637 | mkSwizzling term = swizzcall | 1637 | mkSwizzling term = swizzcall |
1638 | where | 1638 | where |
1639 | sc c = SGlobal $ 'S':c:[] | 1639 | sc c = SGlobal $ 'S':c:[] |
1640 | swizzcall [x] = SGlobal "swizzscalar" `SAppV` term `SAppV` sc x | 1640 | swizzcall [x] = SGlobal "swizzscalar" `SAppV` term `SAppV` (sc . synonym) x |
1641 | swizzcall xs = SGlobal "swizzvector" `SAppV` term `SAppV` swizzparam xs | 1641 | swizzcall xs = SGlobal "swizzvector" `SAppV` term `SAppV` swizzparam xs |
1642 | swizzparam xs = foldl (\exp s -> exp `SAppV` s) (vec xs) $ map (sc . synonym) xs | 1642 | swizzparam xs = foldl (\exp s -> exp `SAppV` s) (vec xs) $ map (sc . synonym) xs |
1643 | vec xs = SGlobal $ case length xs of | 1643 | vec xs = SGlobal $ case length xs of |