diff options
Diffstat (limited to 'module/c/old/cpp.scm')
-rw-r--r-- | module/c/old/cpp.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/module/c/old/cpp.scm b/module/c/old/cpp.scm index 1623bd11..743fe330 100644 --- a/module/c/old/cpp.scm +++ b/module/c/old/cpp.scm @@ -144,8 +144,11 @@ (define-macro (include# header-file . args) - (define define-form (if (null? args) 'define (car args))) + ;; (define define-form (if (null? args) 'define (car args))) - `(begin - ,@(map (lambda (pair) `(,define-form ,(car pair) ,(cdr pair))) - (include% header-file)))) + ;; `(begin + ;; ,@(map (lambda (pair) `(,define-form ,(car pair) ,(cdr pair))) + ;; (include% header-file))) + + (define path ((@ (hnh util path) path-append) "c/old/generated" (basename header-file ".h"))) + `(load-from-path ,path)) |