diff options
Diffstat (limited to 'stdlib/source/lux/host/jvm.lux')
-rw-r--r-- | stdlib/source/lux/host/jvm.lux | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/stdlib/source/lux/host/jvm.lux b/stdlib/source/lux/host/jvm.lux index 7e63fd027..388c5cb04 100644 --- a/stdlib/source/lux/host/jvm.lux +++ b/stdlib/source/lux/host/jvm.lux @@ -9,7 +9,8 @@ [/ ["/." version (#+ Version Minor Major)] ["/." name (#+ Name)] - ["/." access (#+ Access)] + [modifier + ["/.M" class]] ["/." magic (#+ Magic)] ["/." constant (#+ Constant)] ["/." index (#+ Index)]]) @@ -33,7 +34,7 @@ #minor-version Minor #major-version Major #constant-pool Pool - #access-flags Access + #access-flags /classM.Modifier #this Index #super Index #interfaces (Row Interface) @@ -44,7 +45,7 @@ (def: default-minor-version Minor (/version.version 0)) (def: #export (class version access super this interfaces) - (-> Major Access Name Name (List Name) Class) + (-> Major /classM.Modifier Name Name (List Name) Class) (let [with-classes (: (-> Pool Pool) (|>> (row.add (#/constant.UTF8 (/name.read this))) (row.add (#/constant.Class (/index.index 1))) @@ -86,7 +87,7 @@ /version.format /version.format (binary.row/16' 1 /constant.format) - /access.format + /classM.format /index.format /index.format (binary.row/16 /index.format) |