Re: guile-a-sync2 for guile-2.1/2/2

[David Pirotte]

Hi Chris,

> I have made a new repository for guile-a-sync for guile-2.1/2.2, which
> I have called guile-a-sync2.  It includes support for suspendable
> non-blocking ports.  guile-2.1.3 or later is required.  It seems to work
> OK.

Here it compiles fine but make test fails:

address@hidden:/usr/local/src/guile-a-sync2/git 19 $ make test
make -C tests test
make[1]: Entering directory '/usr/local/src/guile-a-sync2/git/tests'
for files in `ls *.scm`; do ../tests/run-test.sh $files; done
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling ../a-sync/event-loop.scm
;;; WARNING: compilation of ../a-sync/event-loop.scm failed:
;;; ERROR: In procedure dynamic-link: file: "libguile-a-sync-0", message: "file 
not found"
test-coroutines.scm: Test 1 OK
test-coroutines.scm: Test 2 OK
test-coroutines.scm: Test 3 OK
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling ../a-sync/event-loop.scm
;;; WARNING: compilation of ../a-sync/event-loop.scm failed:
;;; ERROR: In procedure dynamic-link: file: "libguile-a-sync-0", message: "file 
not found"
test-event-loop.scm: Test 1 OK
Backtrace:
          10 (apply-smob/1 #<catch-closure 23a9c00>)
In ice-9/boot-9.scm:
    704:2  9 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
In ice-9/eval.scm:
    608:8  8 (_ #(#(#<directory (guile-user) 23b0f30>)))
In ice-9/boot-9.scm:
   2325:4  7 (save-module-excursion _)
  3829:12  6 (_)
In tests/test-event-loop.scm:
    52:14  5 (_)
In ice-9/eval.scm:
   298:42  4 (_ #(#(#(#<directory (a-sync event-loop) 262fb40>) …) #))
   293:34  3 (_ #(#(#<directory (a-sync event-loop) 262fb40>) 60))
   182:19  2 (proc #(#(#<directory (a-sync event-loop) 262fb40>) 60))
   142:16  1 (compile-top-call _ (7 . get-time) ())
In unknown file:
           0 (%resolve-variable (7 . get-time) #<directory (a-sync e…>)

ERROR: In procedure %resolve-variable:
ERROR: Unbound variable: get-time
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling ../a-sync/event-loop.scm
;;; WARNING: compilation of ../a-sync/event-loop.scm failed:
;;; ERROR: In procedure dynamic-link: file: "libguile-a-sync-0", message: "file 
not found"
test-helpers-await.scm: Test 1 OK
test-helpers-await.scm: Test 2 OK
test-helpers-await.scm: Test 3 OK
test-helpers-await.scm: Test 4 OK
Backtrace:
          14 (apply-smob/1 #<catch-closure 10e4c00>)
In ice-9/boot-9.scm:
    704:2 13 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
In ice-9/eval.scm:
    608:8 12 (_ #(#(#<directory (guile-user) 10ebf30>)))
In ice-9/boot-9.scm:
   2325:4 11 (save-module-excursion _)
  3829:12 10 (_)
In tests/test-helpers-await.scm:
    109:0  9 (_)
In a-sync/coroutines.scm:
    62:24  8 (_ _)
     47:4  7 (thunk)
In tests/test-helpers-await.scm:
   111:17  6 (_ _ _)
In ice-9/eval.scm:
    608:8  5 (_ #(#(#<directory (a-sync event-loop) 135f900>) #<p…> …))
   298:42  4 (_ #(#(#(#<directory (a-sync event-loop) 135f900>) …) #))
   293:34  3 (_ #(#(#<directory (a-sync event-loop) 135f900>) 10))
   182:19  2 (proc #(#(#<directory (a-sync event-loop) 135f900>) 10))
   142:16  1 (compile-top-call _ (7 . get-time) ())
In unknown file:
           0 (%resolve-variable (7 . get-time) #<directory (a-sync e…>)

ERROR: In procedure %resolve-variable:
ERROR: Unbound variable: get-time
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /usr/local/src/guile-a-sync2/git/tests/test-monotonic-time.scm
;;; WARNING: compilation of 
/usr/local/src/guile-a-sync2/git/tests/test-monotonic-time.scm failed:
;;; ERROR: In procedure dynamic-link: file: "libguile-a-sync-0", message: "file 
not found"
Backtrace:
           3 (primitive-load "/usr/local/src/guile-a-sync2/git/tests…")
In ice-9/eval.scm:
   187:27  2 (_ _)
   223:20  1 (proc #<directory (guile-user) 21a1f30>)
In unknown file:
           0 (%resolve-variable (7 . have-monotonic-time?) #<directo…>)

ERROR: In procedure %resolve-variable:
ERROR: Unbound variable: have-monotonic-time?
Makefile:443: recipe for target 'test' failed
make[1]: *** [test] Error 1
make[1]: Leaving directory '/usr/local/src/guile-a-sync2/git/tests'
Makefile:882: recipe for target 'test' failed
make: *** [test] Error 2
address@hidden:/usr/local/src/guile-a-sync2/git 20 $

pgpgNRGcPVZiE.pgp
Description: OpenPGP digital signature