aboutsummaryrefslogtreecommitdiff
path: root/source/lux/data/tuple.lux
diff options
context:
space:
mode:
Diffstat (limited to 'source/lux/data/tuple.lux')
-rw-r--r--source/lux/data/tuple.lux35
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]))