Hi,

> ==== (1) The docs say 
> <https://api.call-cc.org/6/doc/chicken/platform/include-path>:
> 
> include-path #!optional PATHLIST 
> <https://api.call-cc.org/6/doc/chicken/platform#def:include-path>procedure
> 
> But then when I call include-path, I get this:
> $ csi -R chicken.platform -e '(include-path "./tests")'
> Error: bad argument count - received 1 but expected 0: #<procedure 
> (chicken.platform#include-path)>
> 
> Should that work?

No, but it should fail with another error instead :p the argument must be a 
list.

>From a quick look at it, I think the correct include-path definition might be 
>redefined with a 0-ary one. These changes might fix it (building right now to 
>test).


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:




Reply via email to