Hi,
"objc" <address@hidden> skribis:
I just built guile-2.0.7.18-03a2f
Check out http://branch-twigg.webs.com/ for what I done with it.
currently playing with BioSchematics - L-System Parser and Drawing tool
by - Xavier Raynaud <address@hidden>
Interesting.
FAIL: tests/alist.test: sloppy-assq not
FAIL: tests/alist.test: sloppy-assv not
FAIL: tests/alist.test: assv not
FAIL: tests/alist.test: assq-ref not
FAIL: tests/alist.test: assv-ref not
FAIL: tests/common-list.test: delete-if-not!: non-empty list, remove some
These ones are scary. Can you try to type them at the REPL, to see what
happens?
$ cat guile.log | grep ERR
ERROR: tests/bytevectors.test: 2.9 Operations on Strings: string->utf16 -
arguments: ((system-error "string->utf16" "failed to convert string: ~A"
("hello, world") (-1)))
Is GNU libiconv installed? What’s -1 in errno.h?
ERROR: tests/coverage.test: instrumented/executed-lines: instr = exec -
arguments: ((wrong-type-arg "car" "Wrong type argument in position ~A
(expecting ~A): ~S" (1 "pair" #f) (#f)
))
Can you try to get a backtrace?
That is, at the REPL, you type:
(use-modules (system vm coverage)
(system vm vm)
(system base compile)
(srfi srfi-11))
(define-syntax code
(syntax-rules ()
((_ filename snippet)
(let ((input (open-input-string snippet)))
(set-port-filename! input filename)
(read-enable 'positions)
(compile (read input))))))
(define %test-vm (make-vm))
(let ((proc (code "foo.scm" "(lambda (x y) ;; 0
(+ x y)) ;; 1")))
(let-values (((data result)
(with-code-coverage %test-vm
(lambda () (proc 1 2)))))
(and (coverage-data? data)
(= 3 result)
(let-values (((instr exec)
(instrumented/executed-lines data "foo.scm")))
(and (= 2 instr) (= 2 exec))))))
and report what happens.
ERROR: tests/foreign.test: make-pointer: equal? modulo finalizer -
arguments: ((misc-error "dynamic-pointer" "Symbol not found: ~a"
("scm_is_pair") #f))
Nothing to worry about, I just committed a workaround.
Thanks!
Ludo’.