c: Support quotation mark includes

1 files changed, 5 insertions, 1 deletions

diff --git a/lib/c.tcl b/lib/c.tcl
index 8b9ed792..81819606 100644
--- a/lib/c.tcl
+++ b/lib/c.tcl
@@ -151,7 +151,11 @@ namespace eval c {
 
             ::proc include {h} {
                 variable code
-                lappend code "#include $h"
+                if {[string index $h 0] eq "<"} {
+                    lappend code "#include $h"
+                } else {
+                    lappend code "#include \"$h\""
+                }
             }
             ::proc linedirective {} {
                 set frame [info frame -2]