From ebd36fdcc75f52c20b347e792ac8bb23407e1af0 Mon Sep 17 00:00:00 2001
From: "Joey Pabalinas (jp)" <joeypabalinas@gmail.com>
Date: Tue, 5 Jun 2018 12:02:38 -1000
Subject: [PATCH] Special-case "switch" in _c_base.pm (#37)

---
 modules/compiler_vm/languages/_c_base.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/modules/compiler_vm/languages/_c_base.pm b/modules/compiler_vm/languages/_c_base.pm
index c2322b18..12a95d5a 100755
--- a/modules/compiler_vm/languages/_c_base.pm
+++ b/modules/compiler_vm/languages/_c_base.pm
@@ -287,7 +287,16 @@ sub preprocess_code {
     $ret =~ s/^\s+//;
     $ret =~ s/\s+$//;
 
-    if(not length $ret or $ret eq "else" or $ret eq "while" or $ret eq "if" or $ret eq "for" or $ident eq "for" or $ident eq "while" or $ident eq "if") {
+    if(not length $ret
+       or $ret eq "switch"
+       or $ret eq "else"
+       or $ret eq "while"
+       or $ret eq "if"
+       or $ret eq "for"
+       or $ident eq "switch"
+       or $ident eq "for"
+       or $ident eq "while"
+       or $ident eq "if") {
       $precode .= "$ret $ident ($params) $potential_body";
       next;
     } else {