From f76922dfef6e88db854a27dc17987ccdc9736d6a Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 11 Jul 2018 21:45:38 -0400 Subject: - Removed stale machinery for "lux int min" and "lux int max". --- .../lang/translation/common-lisp/procedure/common.jvm.lux | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux') 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 [ ] - [(def: ( _) - Nullary - (_.int ))] - - [int//min ("lux int min")] - [int//max ("lux int max")] - ) - (do-template [ ] [(def: ( [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 -- cgit v1.2.3