mescc: Add <include>/<kernel>/<arch> to include path.
[mes.git] / module / mescc / compile.scm
index 1faadfe181ffee5c3d6a3d2815d4535b3f6448be..ff912566fccba4d473c18e2ce88e517401ac0ff5 100644 (file)
@@ -49,8 +49,8 @@
   (if %reduced-register-count %reduced-register-count
    (length (append (.registers info) (.allocated info)))))
 
-(define* (c99-input->info info #:key (prefix "") (defines '()) (includes '()))
-  (let ((ast (c99-input->ast #:prefix prefix #:defines defines #:includes includes)))
+(define* (c99-input->info info #:key (prefix "") (defines '()) (includes '()) (arch ""))
+  (let ((ast (c99-input->ast #:prefix prefix #:defines defines #:includes includes #:arch arch)))
     (c99-ast->info info ast)))
 
 (define* (c99-ast->info info o)