lib/midi: luajit bit support

2 files changed, 9 insertions, 4 deletions

diff --git a/lib/midi/core.moon b/lib/midi/core.moon
index 75defdf..c437259 100644
--- a/lib/midi/core.moon
+++ b/lib/midi/core.moon
@@ -1,6 +1,10 @@
 import IO, Op, Registry, Input, Error, match from require 'core.base'
 import RtMidiIn, RtMidiOut, RtMidi from require 'luartmidi'
-import band, bor, lshift, rshift from require 'bit32'
+
+bit = do
+  ok, bit = pcall require, 'bit32'
+  if ok then bit else require 'bit'
+import band, bor, lshift, rshift from bit
 
 MIDI = {
   [0x9]: 'note-on'
@@ -112,4 +116,5 @@ apply_range = (range, val) ->
   :output
   :inout
   :apply_range
+  :bit
 }
diff --git a/lib/midi/launchctl.moon b/lib/midi/launchctl.moon
index 9f29922..1084f66 100644
--- a/lib/midi/launchctl.moon
+++ b/lib/midi/launchctl.moon
@@ -1,9 +1,9 @@
 import Value, Op, Input, match from require 'core.base'
-import apply_range from require 'lib.midi.core'
-import bor, lshift from require 'bit32'
+import apply_range, bit from require 'lib.midi.core'
+import bor, lshift from bit
 
 unpack or= table.unpack
-color = (r, g) -> bor 12, r, (lshift g, 4)
+color = (r, g) -> bit.bor 12, r, (bit.lshift g, 4)
 
 class cc_seq extends Op
   @doc: "(launctl/cc-seq port i start chan [steps [range]]) - CC-Sequencer