|
@@ -233,6 +233,9 @@ its header arguments."
|
|
;; includes
|
|
;; includes
|
|
(mapconcat
|
|
(mapconcat
|
|
(lambda (inc)
|
|
(lambda (inc)
|
|
|
|
+ ;; :includes '(<foo> <bar>) gives us a list of
|
|
|
|
+ ;; symbols; convert those to strings.
|
|
|
|
+ (when (symbolp inc) (setq inc (symbol-name inc)))
|
|
(if (string-prefix-p "<" inc)
|
|
(if (string-prefix-p "<" inc)
|
|
(format "#include %s" inc)
|
|
(format "#include %s" inc)
|
|
(format "#include \"%s\"" inc)))
|
|
(format "#include \"%s\"" inc)))
|