> diff --git a/library.scm b/library.scm
> index 0eaf542a..734ed0ed 100644
> --- a/library.scm
> +++ b/library.scm
> @@ -7917,7 +7917,7 @@ static C_word C_curdir(C_word buf, C_word size) {
>    (when new
>      (##sys#check-list new 'include-path)
>      (set! ##sys#include-pathnames new))
> -  ##include-pathnames)
> +  ##sys#include-pathnames)
> 
>  (define path-list-separator
>    (if ##sys#windows-platform #\; #\:))
> @@ -7980,8 +7980,6 @@ static C_word C_curdir(C_word buf, C_word size) {
>                (map chop-separator (##sys#split-path p))))
>          (else (list installation-home))))
> 
> -(define (include-path) ##sys#include-pathnames)
> -
> 
>  ;;; Feature identifiers:

This appears to fix it (on cb895929). Tests pass, and:

#;1> (import (chicken platform))
#;2> include-path
#<procedure (chicken.platform#include-path . rest)>
#;3> (include-path)
("/home/siiky/.local/share/chicken6")
#;4> (include-path '("foo"))
("foo")
#;5> (include-path)
("foo")

siiky



Reply via email to