m

Signed-off-by: Mattias Andrée <maandree@operamail.com>

2 files changed, 13 insertions, 9 deletions

diff --git a/res/keyboard/compose/dead b/res/keyboard/compose/dead
index cab479d..2ad7d3f 100644
--- a/res/keyboard/compose/dead
+++ b/res/keyboard/compose/dead
@@ -1621,28 +1621,28 @@ function braille/1
 end function
 macro braille_double/1
   let \2 : "\u2800"
-  if \and(\1 1) = 1
+  if \and(\1 1)
     let \2 : \or(\2 8)
   end if
-  if \and(\1 2) = 2
+  if \and(\1 2)
     let \2 : \or(\2 16)
   end if
-  if \and(\1 4) = 4
+  if \and(\1 4)
     let \2 : \or(\2 32)
   end if
-  if \and(\1 8) = 8
+  if \and(\1 8)
     let \2 : \or(\2 1)
   end if
-  if \and(\1 16) = 16
+  if \and(\1 16)
     let \2 : \or(\2 2)
   end if
-  if \and(\1 32) = 32
+  if \and(\1 32)
     let \2 : \or(\2 4)
   end if
-  if \and(\1 64) = 64
+  if \and(\1 64)
     let \2 : \or(\2 128)
   end if
-  if \and(\1 128) = 128
+  if \and(\1 128)
     let \2 : \or(\2 64)
   end if
   <dead compose> "\1" "\1" : "\or(\1 \2)"
diff --git a/src/mds-kbdc/mds-kbdc.c b/src/mds-kbdc/mds-kbdc.c
index 3fd0d82..da1d9a4 100644
--- a/src/mds-kbdc/mds-kbdc.c
+++ b/src/mds-kbdc/mds-kbdc.c
@@ -95,7 +95,11 @@ int main(int argc_, char** argv_)
       \set(\6 \8 \add(\rsh(\get(\6 \8) \8) \mul(2 \rsh(\get(\7 \8)))))
     end for
     
-    if \and(\1 128) = 128
+    if \equals(\and(\1 128))
+      let \2 : \or(\2 64)
+    end if
+    
+    if \and(\1 128)  ##  a number is true iff it is not zero
       let \2 : \or(\2 64)
     end if