diff --git a/examples/game-of-life-png/example/life.sld b/examples/game-of-life-png/example/life.sld index 85b58c38..1ea9b98d 100644 --- a/examples/game-of-life-png/example/life.sld +++ b/examples/game-of-life-png/example/life.sld @@ -1,5 +1,6 @@ (define-library (example life) (include-c-header "../write-png.h") + ;Or, if you want angle brackets: (include-c-header "") (export life) (import (scheme base) ;TODO: (except (scheme base) set!) (scheme write) diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index b3e9be5e..ac3c8f10 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -1412,6 +1412,16 @@ (foldr string-append "" (reverse compiled-program-lst))) (emit-c-arity-macros 0) + (for-each + (lambda (h) + (cond + ((and (string? h) + (> (string-length h) 0) + (equal? (string-ref h 0) #\<)) + (emit* "#include " h "")) + (else + (emit* "#include \"" h "\"")))) + c-headers) (emit "#include \"cyclone/types.h\"") ;; Globals defined in this module