diff options
| author | Eduardo Julian | 2022-02-22 16:29:17 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-02-22 16:29:17 -0400 |
| commit | f07effd9faf3fdaa677f659d6bbccf98931c5e5a (patch) | |
| tree | 0b51a4b8492d06db6b3eca38a3b9143de1c1d735 /lux-bootstrapper/src | |
| parent | 2d1348a73159ec87fa0da2bd3768d641236693fb (diff) | |
No more automatic conversions of primitive types in JVM FFI.
Diffstat (limited to 'lux-bootstrapper/src')
| -rw-r--r-- | lux-bootstrapper/src/lux/type.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lux-bootstrapper/src/lux/type.clj b/lux-bootstrapper/src/lux/type.clj index 9935d9cfa..e1e229ce9 100644 --- a/lux-bootstrapper/src/lux/type.clj +++ b/lux-bootstrapper/src/lux/type.clj @@ -377,10 +377,10 @@ (&/$Primitive name params) (|case params (&/$End) - (str "(primitive " (pr-str name) ")") + (str "(Primitive " (pr-str name) ")") _ - (str "(primitive " (pr-str name) " " (->> params (&/|map show-type) (&/|interpose " ") (&/fold str "")) ")")) + (str "(Primitive " (pr-str name) " " (->> params (&/|map show-type) (&/|interpose " ") (&/fold str "")) ")")) (&/$Product _) (str "[" (->> (flatten-prod type) (&/|map show-type) (&/|interpose " ") (&/fold str "")) "]") |