fixing path resolution for include-library-declarations

lib/chibi/snow/commands.scm

@@ -206,7 +206,12 @@
                     (append (map resolve includes) files)
                     chibi-ffi?))
                (('include-library-declarations includes ...)
-                (lp (append (append-map file->sexp-list includes) (cdr ls))
+                (lp (append (append-map
+                             (lambda (inc)
+                               (file->sexp-list
+                                (path-resolve inc (path-directory file))))
+                             includes)
+                            (cdr ls))
                     info
                     deps
                     (append (map resolve includes) files)

tests/snow/repo3/takakazu/bernoulli-includes.sld

@@ -0,0 +1,2 @@
+(import (scheme base) (pingala binomial))
+(include "bernoulli.scm")

tests/snow/repo3/takakazu/bernoulli-test.scm

@@ -0,0 +1,7 @@
+(import (scheme base) (takakazu bernoulli) (pingala test-map))
+
+(test-map (1 -1/2 1/6 0 -1/30 0 1/42 0 -1/30 0 5/66)
+          (lambda (m) (bernoulli m))
+          (0 1 2 3 4 5 6 7 8 9 10))
+
+(test-exit)

tests/snow/repo3/takakazu/bernoulli.scm

@@ -0,0 +1,10 @@
+;; first bernoulli numbers
+(define (bernoulli m)
+  (do ((k 0 (+ k 1))
+       (sum 0 (do ((v 0 (+ v 1))
+                   (sum sum (+ sum
+                               (* (expt -1 v)
+                                  (binomial k v)
+                                  (/ (expt v m) (+ k 1))))))
+                  ((> v k) sum))))
+      ((> k m) sum)))

tests/snow/repo3/takakazu/bernoulli.sld

@@ -0,0 +1,3 @@
+(define-library (takakazu bernoulli)
+  (export bernoulli)
+  (include-library-declarations "bernoulli-includes.sld"))

tests/snow/snow-tests.scm

@@ -40,6 +40,7 @@
 ;; run snow-chibi command as a separate process with test defaults
 (define chibi-path "./chibi-scheme")
 (define (snow-command . args)
+  ;;(write `(snow ,@args)) (newline)
   `("./tools/snow-chibi"
     --verbose
     --always-no
@@ -189,21 +190,20 @@
       --description "Pythagoran Theorem"
       --test "tests/snow/repo3/pythagoras/hypotenuse-test.sch"
       tests/snow/repo3/pythagoras/hypotenuse.sch)
-;; (snow package --output-dir tests/snow/repo3/
+(snow package --output-dir tests/snow/repo3/
-;;       --version 1.0 --authors "Seki Takakazu"
+      --version 1.0 --authors "Seki Takakazu"
-;;       --description "Bernoulli Numbers"
+      --description "Bernoulli Numbers"
-;;       --test "tests/snow/repo3/takakazu/bernoulli-test.scm"
+      --test "tests/snow/repo3/takakazu/bernoulli-test.scm"
-;;       tests/snow/repo3/takakazu/bernoulli.sld)
+      tests/snow/repo3/takakazu/bernoulli.sld)
 (snow index ,(cadr repo3))
 (snow ,@repo3 install pingala.binomial)
 (snow ,@repo3 install euler.totient)
+(snow ,@repo3 install takakazu.bernoulli)
 (let ((status (snow-status)))
   (test-assert (installed-version status '(pingala binomial)))
   (test-assert (installed-version status '(pingala factorial)))
-  (test "2.7.1" (installed-version status '(euler totient))))
+  (test "2.7.1" (installed-version status '(euler totient)))
-;; (snow ,@repo3 install takakazu.bernoulli)
+  (test-assert (installed-version status '(takakazu bernoulli))))
-;; (let ((status (snow-status)))
-;;   (test-assert (installed-version status '(takakazu bernoulli))))
 
 ;; programs
 (snow ,@repo3 install pingala.triangle)