diff options
| author | Eduardo Julian | 2018-07-03 18:40:16 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-07-03 18:40:16 -0400 |
| commit | d3f5e1f4baa667bc2eb72edd542cf5d8cd3924ce (patch) | |
| tree | 2aa771401cce0d08276abc072b9d31e00a651f29 /new-luxc/source/luxc/lang/translation/common-lisp/primitive.jvm.lux | |
| parent | bfd2d6c203042dfddb0ce29db3696365fe213314 (diff) | |
- Re-named ":!" to ":coerce".
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/common-lisp/primitive.jvm.lux')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/common-lisp/primitive.jvm.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/primitive.jvm.lux index 6bb4ec140..4e26c4218 100644 --- a/new-luxc/source/luxc/lang/translation/common-lisp/primitive.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/common-lisp/primitive.jvm.lux @@ -15,11 +15,11 @@ (def: #export translate-nat (-> Nat (Meta Expression)) - (|>> (:! Int) _.int meta/wrap)) + (|>> (:coerce Int) _.int meta/wrap)) (def: #export translate-deg (-> Deg (Meta Expression)) - (|>> (:! Int) _.int meta/wrap)) + (|>> (:coerce Int) _.int meta/wrap)) (def: #export translate-frac (-> Frac (Meta Expression)) |