diff options
| author | Péter Diviánszky <divipp@gmail.com> | 2016-02-16 01:02:23 +0100 |
|---|---|---|
| committer | Péter Diviánszky <divipp@gmail.com> | 2016-02-16 01:02:23 +0100 |
| commit | aa927f04434e53f41e9fcb04f9c6680c9457fcc8 (patch) | |
| tree | f7d7d8bfe30543338bc4aa265f111d34fd700cdf /lc | |
| parent | 6befbf3058a87522dc59e3e55c65a6d7b448fd9e (diff) | |
eliminate FixLabel, performance is back at previous level
Diffstat (limited to 'lc')
| -rw-r--r-- | lc/Prelude.lc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lc/Prelude.lc b/lc/Prelude.lc index b82cd903..c3b819d9 100644 --- a/lc/Prelude.lc +++ b/lc/Prelude.lc | |||
| @@ -353,7 +353,9 @@ lookat pos target up = translateBefore4 (neg pos) (orthogonal $ toOrthoUnsafe r) | |||
| 353 | scale t v = v * V4 t t t 1.0 | 353 | scale t v = v * V4 t t t 1.0 |
| 354 | 354 | ||
| 355 | fromTo :: Float -> Float -> [Float] | 355 | fromTo :: Float -> Float -> [Float] |
| 356 | fromTo a b = if a > b then [] else a: fromTo (a +! 1.0) b | 356 | fromTo a b |
| 357 | | a > b = [] | ||
| 358 | | otherwise = a: fromTo (a + 1) b | ||
| 357 | 359 | ||
| 358 | (!!) :: [a] -> Int -> a | 360 | (!!) :: [a] -> Int -> a |
| 359 | (x : _) !! 0 = x | 361 | (x : _) !! 0 = x |