From 33edf701275515a3e8da37cfd80710786f060ab4 Mon Sep 17 00:00:00 2001 From: Bogdan Popa Date: Fri, 30 Oct 2020 20:14:34 +0200 Subject: [PATCH] ffi: fix `path' argument to `sass_option_push_include_path' Closes #1. --- sass/main.rkt | 2 +- sass/private/libsass.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;