Switched to using new bit syntax in new-luxc.

2 files changed, 30 insertions, 30 deletions

diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
index 527ec4f2d..0bf625624 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
@@ -155,7 +155,7 @@
        ($i.CHECKCAST hostL.function-class)
        ($i.INVOKESTATIC hostL.runtime-class "try"
                         ($t.method (list $Function) (#.Some $Object-Array) (list))
-                        false)))
+                        #0)))
 
 (exception: #export (Wrong-Syntax {message Text})
   message)
@@ -303,13 +303,13 @@
 
   [int//to-frac ($i.unwrap #$.Long) (<| ($i.wrap #$.Double) $i.L2D)]
   [int//char ($i.unwrap #$.Long)
-   ((|>> $i.L2I $i.I2C ($i.INVOKESTATIC "java.lang.Character" "toString" ($t.method (list $t.char) (#.Some $String) (list)) false)))]
+   ((|>> $i.L2I $i.I2C ($i.INVOKESTATIC "java.lang.Character" "toString" ($t.method (list $t.char) (#.Some $String) (list)) #0)))]
 
   [frac//to-int ($i.unwrap #$.Double) (<| ($i.wrap #$.Long) $i.D2L)]
   [frac//encode ($i.unwrap #$.Double)
-   ($i.INVOKESTATIC "java.lang.Double" "toString" ($t.method (list $t.double) (#.Some $String) (list)) false)]
+   ($i.INVOKESTATIC "java.lang.Double" "toString" ($t.method (list $t.double) (#.Some $String) (list)) #0)]
   [frac//decode ($i.CHECKCAST "java.lang.String")
-   ($i.INVOKESTATIC hostL.runtime-class "decode_frac" ($t.method (list $String) (#.Some $Object-Array) (list)) false)]
+   ($i.INVOKESTATIC hostL.runtime-class "decode_frac" ($t.method (list $String) (#.Some $Object-Array) (list)) #0)]
   )
 
 ## [[Text]]
@@ -318,7 +318,7 @@
      Unary
      (|>> inputI
           ($i.CHECKCAST "java.lang.String")
-          ($i.INVOKEVIRTUAL <class> <method> ($t.method (list) (#.Some <outputT>) (list)) false)
+          ($i.INVOKEVIRTUAL <class> <method> ($t.method (list) (#.Some <outputT>) (list)) #0)
           <post>))]
 
   [text//size  "java.lang.String" "length"      lux-intI $t.int]
@@ -332,16 +332,16 @@
           <op> <post>))]
 
   [text//eq id id
-   ($i.INVOKEVIRTUAL "java.lang.Object" "equals" ($t.method (list $Object) (#.Some $t.boolean) (list)) false)
+   ($i.INVOKEVIRTUAL "java.lang.Object" "equals" ($t.method (list $Object) (#.Some $t.boolean) (list)) #0)
    ($i.wrap #$.Boolean)]
   [text//lt ($i.CHECKCAST "java.lang.String") ($i.CHECKCAST "java.lang.String")
-   ($i.INVOKEVIRTUAL "java.lang.String" "compareTo" ($t.method (list $String) (#.Some $t.int) (list)) false)
+   ($i.INVOKEVIRTUAL "java.lang.String" "compareTo" ($t.method (list $String) (#.Some $t.int) (list)) #0)
    (<| (predicateI $i.IF_ICMPEQ) ($i.int -1))]
   [text//concat ($i.CHECKCAST "java.lang.String") ($i.CHECKCAST "java.lang.String")
-   ($i.INVOKEVIRTUAL "java.lang.String" "concat" ($t.method (list $String) (#.Some $String) (list)) false)
+   ($i.INVOKEVIRTUAL "java.lang.String" "concat" ($t.method (list $String) (#.Some $String) (list)) #0)
    id]
   [text//char ($i.CHECKCAST "java.lang.String") jvm-intI
-   ($i.INVOKESTATIC hostL.runtime-class "text_char" ($t.method (list $String $t.int) (#.Some $Variant) (list)) false)
+   ($i.INVOKESTATIC hostL.runtime-class "text_char" ($t.method (list $String $t.int) (#.Some $Variant) (list)) #0)
    id]
   )
 
@@ -355,7 +355,7 @@
 
   [text//clip ($i.CHECKCAST "java.lang.String") jvm-intI jvm-intI
    ($i.INVOKESTATIC hostL.runtime-class "text_clip"
-                    ($t.method (list $String $t.int $t.int) (#.Some $Variant) (list)) false)]
+                    ($t.method (list $String $t.int $t.int) (#.Some $Variant) (list)) #0)]
   )
 
 (def: index-method $.Method ($t.method (list $String $t.int) (#.Some $t.int) (list)))
@@ -366,7 +366,7 @@
       (|>> textI ($i.CHECKCAST "java.lang.String")
            partI ($i.CHECKCAST "java.lang.String")
            startI jvm-intI
-           ($i.INVOKEVIRTUAL "java.lang.String" "indexOf" index-method false)
+           ($i.INVOKEVIRTUAL "java.lang.String" "indexOf" index-method #0)
            $i.DUP
            ($i.int -1)
            ($i.IF_ICMPEQ @not-found)
@@ -387,7 +387,7 @@
      Unary
      (|>> inputI
           ($i.unwrap #$.Double)
-          ($i.INVOKESTATIC "java.lang.Math" <method> math-unary-method false)
+          ($i.INVOKESTATIC "java.lang.Math" <method> math-unary-method #0)
           ($i.wrap #$.Double)))]
 
   [math//cos "cos"]
@@ -410,7 +410,7 @@
      Binary
      (|>> inputI ($i.unwrap #$.Double)
           paramI ($i.unwrap #$.Double)
-          ($i.INVOKESTATIC "java.lang.Math" <method> math-binary-method false)
+          ($i.INVOKESTATIC "java.lang.Math" <method> math-binary-method #0)
           ($i.wrap #$.Double)))]
 
   [math//atan2 "atan2"]
@@ -421,7 +421,7 @@
   Unary
   (|>> inputI
        ($i.unwrap #$.Double)
-       ($i.INVOKESTATIC "java.lang.Math" "round" ($t.method (list $t.double) (#.Some $t.long) (list)) false)
+       ($i.INVOKESTATIC "java.lang.Math" "round" ($t.method (list $t.double) (#.Some $t.long) (list)) #0)
        $i.L2D
        ($i.wrap #$.Double)))
 
@@ -432,7 +432,7 @@
   (|>> ($i.GETSTATIC "java.lang.System" "out" ($t.class "java.io.PrintStream" (list)))
        messageI
        ($i.CHECKCAST "java.lang.String")
-       ($i.INVOKEVIRTUAL "java.io.PrintStream" "println" string-method false)
+       ($i.INVOKEVIRTUAL "java.io.PrintStream" "println" string-method #0)
        unitI))
 
 (def: (io//error messageI)
@@ -441,18 +441,18 @@
        $i.DUP
        messageI
        ($i.CHECKCAST "java.lang.String")
-       ($i.INVOKESPECIAL "java.lang.Error" "<init>" string-method false)
+       ($i.INVOKESPECIAL "java.lang.Error" "<init>" string-method #0)
        $i.ATHROW))
 
 (def: (io//exit codeI)
   Unary
   (|>> codeI jvm-intI
-       ($i.INVOKESTATIC "java.lang.System" "exit" ($t.method (list $t.int) #.None (list)) false)
+       ($i.INVOKESTATIC "java.lang.System" "exit" ($t.method (list $t.int) #.None (list)) #0)
        $i.NULL))
 
 (def: (io//current-time [])
   Nullary
-  (|>> ($i.INVOKESTATIC "java.lang.System" "currentTimeMillis" ($t.method (list) (#.Some $t.long) (list)) false)
+  (|>> ($i.INVOKESTATIC "java.lang.System" "currentTimeMillis" ($t.method (list) (#.Some $t.long) (list)) #0)
        ($i.wrap #$.Long)))
 
 ## [[Atoms]]
@@ -462,13 +462,13 @@
   (|>> ($i.NEW atom-class)
        $i.DUP
        initI
-       ($i.INVOKESPECIAL atom-class "<init>" ($t.method (list $Object) #.None (list)) false)))
+       ($i.INVOKESPECIAL atom-class "<init>" ($t.method (list $Object) #.None (list)) #0)))
 
 (def: (atom//read atomI)
   Unary
   (|>> atomI
        ($i.CHECKCAST atom-class)
-       ($i.INVOKEVIRTUAL atom-class "get" ($t.method (list) (#.Some $Object) (list)) false)))
+       ($i.INVOKEVIRTUAL atom-class "get" ($t.method (list) (#.Some $Object) (list)) #0)))
 
 (def: (atom//compare-and-swap [atomI oldI newI])
   Trinary
@@ -476,7 +476,7 @@
        ($i.CHECKCAST atom-class)
        oldI
        newI
-       ($i.INVOKEVIRTUAL atom-class "compareAndSet" ($t.method (list $Object $Object) (#.Some $t.boolean) (list)) false)
+       ($i.INVOKEVIRTUAL atom-class "compareAndSet" ($t.method (list $Object $Object) (#.Some $t.boolean) (list)) #0)
        ($i.wrap #$.Boolean)))
 
 ## [[Box]]
@@ -507,8 +507,8 @@
 ## [[Processes]]
 (def: (process//parallelism-level [])
   Nullary
-  (|>> ($i.INVOKESTATIC "java.lang.Runtime" "getRuntime" ($t.method (list) (#.Some ($t.class "java.lang.Runtime" (list))) (list)) false)
-       ($i.INVOKEVIRTUAL "java.lang.Runtime" "availableProcessors" ($t.method (list) (#.Some $t.int) (list)) false)
+  (|>> ($i.INVOKESTATIC "java.lang.Runtime" "getRuntime" ($t.method (list) (#.Some ($t.class "java.lang.Runtime" (list))) (list)) #0)
+       ($i.INVOKEVIRTUAL "java.lang.Runtime" "availableProcessors" ($t.method (list) (#.Some $t.int) (list)) #0)
        lux-intI))
 
 (def: (process//schedule [millisecondsI procedureI])
@@ -516,7 +516,7 @@
   (|>> millisecondsI ($i.unwrap #$.Long)
        procedureI ($i.CHECKCAST hostL.function-class)
        ($i.INVOKESTATIC hostL.runtime-class "schedule"
-                        ($t.method (list $t.long $Function) (#.Some $Object) (list)) false)))
+                        ($t.method (list $t.long $Function) (#.Some $Object) (list)) #0)))
 
 ## [Bundles]
 (def: lux-procs
diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.jvm.lux
index 45cb67fb9..ddf345a13 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.jvm.lux
@@ -415,7 +415,7 @@
                                   ($t.method (list ($t.class "java.lang.String" (list)))
                                              (#.Some ($t.class "java.lang.Class" (list)))
                                              (list))
-                                  false))))
+                                  #0))))
 
     _
     (&.throw @.Wrong-Syntax (@.wrong-syntax proc inputs))))
@@ -679,7 +679,7 @@
       (wrap (|>> ($i.fuse (list/map product.right argsTI))
                  ($i.INVOKESTATIC class method
                                   ($t.method (list/map product.left argsTI) returnT (list))
-                                  false))))
+                                  #0))))
 
     _
     (&.throw @.Wrong-Syntax (@.wrong-syntax proc inputs))))
@@ -704,9 +704,9 @@
        _
        (&.throw @.Wrong-Syntax (@.wrong-syntax proc inputs))))]
 
-  [invoke//virtual $i.INVOKEVIRTUAL false]
-  [invoke//special $i.INVOKESPECIAL false]
-  [invoke//interface $i.INVOKEINTERFACE true]
+  [invoke//virtual $i.INVOKEVIRTUAL #0]
+  [invoke//special $i.INVOKESPECIAL #0]
+  [invoke//interface $i.INVOKEINTERFACE #1]
   )
 
 (def: (invoke//constructor proc translate inputs)
@@ -720,7 +720,7 @@
                  ($i.fuse (list/map product.right argsTI))
                  ($i.INVOKESPECIAL class "<init>"
                                    ($t.method (list/map product.left argsTI) #.None (list))
-                                   false))))
+                                   #0))))
 
     _
     (&.throw @.Wrong-Syntax (@.wrong-syntax proc inputs))))