From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Per Bothner Newsgroups: gmane.lisp.guile.user,gmane.lisp.scheme.srfi.srfi-64 Subject: Re: srfi 64 vs guile. Date: Fri, 11 Aug 2006 22:48:36 -0700 Message-ID: <44DD6BB4.7050808@bothner.com> References: <871wrmyceq.fsf@UlanBator.myhome.westell.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------060703010004010403070901" X-Trace: sea.gmane.org 1155361752 11076 80.91.229.2 (12 Aug 2006 05:49:12 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 12 Aug 2006 05:49:12 +0000 (UTC) Cc: srfi-64@srfi.schemers.org, 0@ciao.gmane.org, guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Sat Aug 12 07:49:11 2006 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1GBmMs-0001hY-0e for guile-user@m.gmane.org; Sat, 12 Aug 2006 07:49:06 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GBmMr-0004Q6-Es for guile-user@m.gmane.org; Sat, 12 Aug 2006 01:49:05 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1GBmMm-0004Ps-3Y for guile-user@gnu.org; Sat, 12 Aug 2006 01:49:00 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1GBmMk-0004PX-I7 for guile-user@gnu.org; Sat, 12 Aug 2006 01:48:59 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GBmMk-0004PO-9B for guile-user@gnu.org; Sat, 12 Aug 2006 01:48:58 -0400 Original-Received: from [207.115.57.60] (helo=ylpvm29.prodigy.net) by monty-python.gnu.org with esmtp (Exim 4.52) id 1GBmS2-0002Sq-FX for guile-user@gnu.org; Sat, 12 Aug 2006 01:54:26 -0400 X-ORBL: [216.102.199.253] Original-Received: from cupertino.bothner.com (adsl-216-102-199-253.dsl.snfc21.pacbell.net [216.102.199.253]) by ylpvm29.prodigy.net (8.13.7 out spool5000 dk/8.13.7) with ESMTP id k7C5mPmQ010922; Sat, 12 Aug 2006 01:48:27 -0400 Original-Received: from [192.168.1.23] (64-118-100-91.static.sti.net [64.118.100.91]) (authenticated bits=0) by cupertino.bothner.com (8.13.6/8.13.6) with ESMTP id k7C5meUC010156 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Fri, 11 Aug 2006 22:48:50 -0700 User-Agent: Thunderbird 1.5.0.2 (X11/20060501) Original-To: "r. clayton" In-Reply-To: <871wrmyceq.fsf@UlanBator.myhome.westell.com> X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:5445 gmane.lisp.scheme.srfi.srfi-64:20 Archived-At: This is a multi-part message in MIME format. --------------060703010004010403070901 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit r. clayton wrote: > I ran guile on a debian testing system updated weekly and did > > $ guile > guile> (version) > "1.6.8" > guile> (load "srfi-64.scm") > guile> (load "t.scm") > %%%% Starting test vec-test (Writing full log to "vec-test.log") > FAIL > # of expected passes 2 > # of unexpected failures 1 Oops. My fault. Please try the attached patch. -- --Per Bothner per@bothner.com http://per.bothner.com/ --------------060703010004010403070901 Content-Type: text/x-patch; name="testing.patch" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="testing.patch" Index: testing.scm =================================================================== --- testing.scm (revision 5381) +++ testing.scm (working copy) @@ -646,7 +646,6 @@ (let () (if (%test-on-test-begin r) (let () - (test-result-set! r 'expected-value exp) (let ((res (%test-evaluate-with-catch expr))) (test-result-set! r 'actual-value res) (%test-on-test-end r res)))) @@ -725,11 +724,11 @@ (let* ((r (test-runner-get)) (name tname)) (test-result-alist! r '((test-name . tname))) - (%test-comp1body r expr))) + (%test-comp1body r test-expression))) ((test-assert test-expression) (let* ((r (test-runner-get))) (test-result-alist! r '()) - (%test-comp1body r expr))))) + (%test-comp1body r test-expression))))) (define-syntax %test-comp2 (syntax-rules () ((%test-comp2 comp tname expected expr) --------------060703010004010403070901 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Guile-user mailing list Guile-user@gnu.org http://lists.gnu.org/mailman/listinfo/guile-user --------------060703010004010403070901--