diff options
| author | Eduardo Julian | 2018-07-04 00:03:28 -0400 | 
|---|---|---|
| committer | Eduardo Julian | 2018-07-04 00:03:28 -0400 | 
| commit | 971d5d8aceb5087d3b3aef9db45abe9bc9c7c844 (patch) | |
| tree | 98a101f7f33451b6d657c4afa548df7e72037e47 /new-luxc/source/luxc/lang/translation/r/procedure | |
| parent | 8bfbd5f1c911bdc3266d08c156bf34de1eb8c759 (diff) | |
- Implemented not-a-number and both infinities in pure Lux.
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux | 13 | 
1 files changed, 0 insertions, 13 deletions
| diff --git a/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux index 022e1ea16..9d4fdce2a 100644 --- a/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux @@ -227,16 +227,6 @@    [int//max runtimeT.int//max]    ) -(do-template [<name> <frac>] -  [(def: (<name> _) -     Nullary -     (r.float <frac>))] - -  [frac//not-a-number      number.not-a-number] -  [frac//positive-infinity number.positive-infinity] -  [frac//negative-infinity number.negative-infinity] -  ) -  (do-template [<name> <op>]    [(def: (<name> [subjectO paramO])       Binary @@ -316,9 +306,6 @@            (install "smallest" (nullary frac//smallest))            (install "min" (nullary frac//min))            (install "max" (nullary frac//max)) -          (install "not-a-number" (nullary frac//not-a-number)) -          (install "positive-infinity" (nullary frac//positive-infinity)) -          (install "negative-infinity" (nullary frac//negative-infinity))            (install "to-int" (unary (apply1 (r.global "as.integer"))))            (install "encode" (unary frac//encode))            (install "decode" (unary runtimeT.frac//decode))))) | 
