aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/common-lisp/procedure
diff options
context:
space:
mode:
authorEduardo Julian2018-07-11 21:45:38 -0400
committerEduardo Julian2018-07-11 21:45:38 -0400
commitf76922dfef6e88db854a27dc17987ccdc9736d6a (patch)
tree5c3dc4b67b6bddcbb31152ae2ace4baf9c5a3fe3 /new-luxc/source/luxc/lang/translation/common-lisp/procedure
parent0097e306a1e3b53e4cda304aac82b8778036eddf (diff)
- Removed stale machinery for "lux int min" and "lux int max".
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/common-lisp/procedure')
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux11
1 files changed, 0 insertions, 11 deletions
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
index 6ac2d6a0a..e1ba0494a 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
@@ -220,15 +220,6 @@
[frac//max Double::MAX_VALUE _.double]
)
-(do-template [<name> <expression>]
- [(def: (<name> _)
- Nullary
- (_.int <expression>))]
-
- [int//min ("lux int min")]
- [int//max ("lux int max")]
- )
-
(do-template [<name> <op>]
[(def: (<name> [subjectO paramO])
Binary
@@ -276,8 +267,6 @@
(install "%" (binary int//%))
(install "=" (binary int//=))
(install "<" (binary int//<))
- (install "min" (nullary int//min))
- (install "max" (nullary int//max))
(install "to-frac" (unary (|>> (_./ (_.double 1.0))))))))
(def: frac-procs