diff options
Diffstat (limited to 'source/lux/data/tuple.lux')
-rw-r--r-- | source/lux/data/tuple.lux | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/source/lux/data/tuple.lux b/source/lux/data/tuple.lux deleted file mode 100644 index 6eef74670..000000000 --- a/source/lux/data/tuple.lux +++ /dev/null @@ -1,35 +0,0 @@ -## Copyright (c) Eduardo Julian. All rights reserved. -## This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0. -## If a copy of the MPL was not distributed with this file, -## You can obtain one at http://mozilla.org/MPL/2.0/. - -(;import lux) - -## [Functions] -(do-template [<name> <type> <output>] - [(def #export (<name> xy) - (All [a b] (-> (, a b) <type>)) - (let [[x y] xy] - <output>))] - - [first a x] - [second b y]) - -(def #export (curry f) - (All [a b c] - (-> (-> (, a b) c) - (-> a b c))) - (lambda [x y] - (f [x y]))) - -(def #export (uncurry f) - (All [a b c] - (-> (-> a b c) (-> (, a b) c))) - (lambda [xy] - (let [[x y] xy] - (f x y)))) - -(def #export (swap xy) - (All [a b] (-> (, a b) (, b a))) - (let [[x y] xy] - [y x])) |