diff --git a/sass/main.rkt b/sass/main.rkt index 386fc49..9a85603 100644 --- a/sass/main.rkt +++ b/sass/main.rkt @@ -29,7 +29,7 @@ (for ([path (reverse (current-include-paths))]) ;; Unlike sass_make_data_context, this function does not take ;; ownership of path. Cool. - (sass_option_push_include_path options path))) + (sass_option_push_include_path options (path->complete-path path)))) (define ((make-compiler #:constructor make-wrapper #:destructor free-wrapper diff --git a/sass/private/libsass.rkt b/sass/private/libsass.rkt index 949e6dd..d67dbd1 100644 --- a/sass/private/libsass.rkt +++ b/sass/private/libsass.rkt @@ -43,7 +43,7 @@ ;; Sass_Options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define _Sass_Options-pointer (_cpointer 'Sass_Options)) -(define-sass sass_option_push_include_path (_fun _Sass_Options-pointer _string -> _void)) +(define-sass sass_option_push_include_path (_fun _Sass_Options-pointer _path -> _void)) ;; Sass_Context ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;