From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=) Newsgroups: gmane.lisp.guile.user Subject: Re: Guile and MSWindows Date: Tue, 05 Feb 2013 16:41:46 +0100 Message-ID: <871ucuu5s5.fsf@gnu.org> References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1360078919 2214 80.91.229.3 (5 Feb 2013 15:41:59 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 5 Feb 2013 15:41:59 +0000 (UTC) Cc: guile-user@gnu.org To: "objc" Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Tue Feb 05 16:42:18 2013 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1U2kf3-0004iy-Sw for guile-user@m.gmane.org; Tue, 05 Feb 2013 16:42:18 +0100 Original-Received: from localhost ([::1]:47731 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U2kel-000472-2R for guile-user@m.gmane.org; Tue, 05 Feb 2013 10:41:59 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:58825) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U2keb-00046v-OH for guile-user@gnu.org; Tue, 05 Feb 2013 10:41:54 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U2kea-00042u-Ge for guile-user@gnu.org; Tue, 05 Feb 2013 10:41:49 -0500 Original-Received: from mail2-relais-roc.national.inria.fr ([192.134.164.83]:61734) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U2kea-00041r-Ad for guile-user@gnu.org; Tue, 05 Feb 2013 10:41:48 -0500 X-IronPort-AV: E=Sophos;i="4.84,602,1355094000"; d="scan'208";a="1492552" Original-Received: from nat-eduroam-37.bordeaux.inria.fr (HELO pluto) ([194.199.1.37]) by mail2-relais-roc.national.inria.fr with ESMTP/TLS/DHE-RSA-AES128-SHA; 05 Feb 2013 16:41:46 +0100 X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 17 =?utf-8?Q?Pluvi=C3=B4se?= an 221 de la =?utf-8?Q?R=C3=A9volution?= X-PGP-Key-ID: 0xEA52ECF4 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 83C4 F8E5 10A3 3B4C 5BEA D15D 77DD 95E2 EA52 ECF4 X-OS: x86_64-unknown-linux-gnu In-Reply-To: (objc's message of "Tue, 5 Feb 2013 09:04:02 -0000") User-Agent: Gnus/5.130005 (Ma Gnus v0.5) Emacs/24.2 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 192.134.164.83 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:10023 Archived-At: Hello, "objc" skribis: >>> FAIL: tests/alist.test: sloppy-assq not >> >> ;;; :242:2: warning: possibly unbound variable `pass-if' Actually you need to type in just the body of the =E2=80=98pass-if=E2=80=99= or =E2=80=98pass-if-exception=E2=80=99 forms. Could you try that? >> ;;; :473:4: warning: possibly unbound variable `delete-if-not!' For this one, you must in addition first type: (use-modules (ice-9 common-list)) >>> ERROR: tests/bytevectors.test: 2.9 Operations on Strings: >>> string->utf16 -=20 >>> arguments: >> ((system-error "string->utf16" "failed to convert string: ~A" >> ("hello, world") (-1))) >> >> Is GNU libiconv installed? What=E2=80=99s -1 in errno.h? >> >> - libiconv /usr/local/bin/cygiconv-2.dll (0x470000) >> vers 1.14-2 Hmm no idea what=E2=80=99s going on here. >> ERROR: tests/coverage.test: instrumented/executed-lines: instr =3D >> exec -=20 >> 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? [...] >> scheme@(guile-user)> (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) >> (=3D 3 result) >> (let-values (((instr exec) >> (instrumented/executed-lines data "foo.scm"))) >> (and (=3D 2 instr) (=3D 2 exec)))))) >> $1 =3D #t So this one actually works here. No idea why it was initially failing when run from ./check-guile, but you can probably ignore it, then. Ludo=E2=80=99.