Re: Guile and MSWindows

[Ludovic Courtès]

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’.