From f55f71ab5bd1dd14a8a10fc6c014150e4a0bc5bc Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Sat, 15 Apr 2023 00:24:53 -0400
Subject: c: Support quotation mark includes

---
 lib/c.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib')

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]
-- 
cgit v1.2.3