From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Pirotte Newsgroups: gmane.lisp.guile.devel Subject: guile-gnome, master: fix scm-error incorrect arg ist in gtk.scm Date: Fri, 2 May 2014 16:09:31 -0300 Message-ID: <20140502160931.7bc8c188@capac> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="MP_/Dozc30N_kz9b3XY.q1wuw=+" X-Trace: ger.gmane.org 1399057807 25862 80.91.229.3 (2 May 2014 19:10:07 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 2 May 2014 19:10:07 +0000 (UTC) To: guile-devel Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Fri May 02 21:10:00 2014 Return-path: Envelope-to: guile-devel@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 1WgIqO-0007rz-92 for guile-devel@m.gmane.org; Fri, 02 May 2014 21:10:00 +0200 Original-Received: from localhost ([::1]:45895 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WgIqN-0007JB-Og for guile-devel@m.gmane.org; Fri, 02 May 2014 15:09:59 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:60782) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WgIqE-0007J5-13 for guile-devel@gnu.org; Fri, 02 May 2014 15:09:55 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WgIq8-0006Ib-2o for guile-devel@gnu.org; Fri, 02 May 2014 15:09:49 -0400 Original-Received: from maximusconfessor.all2all.org ([79.99.200.102]:55569) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WgIq7-0006IQ-Sc for guile-devel@gnu.org; Fri, 02 May 2014 15:09:44 -0400 Original-Received: from localhost (unknown [192.168.0.2]) by maximusconfessor.all2all.org (Postfix) with ESMTP id 3DB02A04C0E8 for ; Fri, 2 May 2014 21:09:42 +0200 (CEST) Original-Received: from maximusconfessor.all2all.org ([192.168.0.1]) by localhost (maximusconfessor.all2all.org [192.168.0.2]) (amavisd-new, port 10024) with ESMTP id kDowRyPPsto2 for ; Fri, 2 May 2014 20:51:18 +0200 (CEST) Original-Received: from capac (unknown [189.60.2.251]) by maximusconfessor.all2all.org (Postfix) with ESMTPSA id 325DCA04C0E9 for ; Fri, 2 May 2014 21:09:34 +0200 (CEST) X-Mailer: Claws Mail 3.9.3 (GTK+ 2.24.23; x86_64-pc-linux-gnu) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 79.99.200.102 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:17128 Archived-At: --MP_/Dozc30N_kz9b3XY.q1wuw=+ Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Disposition: inline Hello, guile-gnome master: fix scm-error incorrect arg ist in gtk.scm Patch review solicited. Thanks, David --MP_/Dozc30N_kz9b3XY.q1wuw=+ Content-Type: text/x-patch Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=0001-fix-scm-error-incorrect-arg-list-in-gtk.scm.patch >From df58a66726803f4698356d721d7611d2d11c9ee7 Mon Sep 17 00:00:00 2001 From: David PIROTTE Date: Fri, 2 May 2014 15:38:55 -0300 Subject: [PATCH 1/2] fix scm-error incorrect arg list in gtk.scm * gtk/gnome/gtk.scm: Fixing scm-error arg list, all calls. --- gtk/gnome/gtk.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gtk/gnome/gtk.scm b/gtk/gnome/gtk.scm index 312fe89..e274085 100644 --- a/gtk/gnome/gtk.scm +++ b/gtk/gnome/gtk.scm @@ -89,7 +89,7 @@ ;; Miscellany. (define (gtk-tree-or-list-store-set store iter . args) - (or (even? (length args)) (scm-error 'gruntime-error "Invalid arguments")) + (or (even? (length args)) (scm-error 'gruntime-error #f "Invalid arguments" '() #f)) (let loop ((args args)) (if (eq? args '()) *unspecified* @@ -106,7 +106,7 @@ (define (gtk-text-buffer-create-tag buffer tag-name . properties) (let ((tag (make #:name tag-name))) (if (not (even? (length properties))) - (scm-error 'gruntime-error "Invalid property list: ~A" properties)) + (scm-error 'gruntime-error #f "Invalid property list: ~A" properties #f)) (add (get-tag-table buffer) tag) (let loop ((props properties)) (if (null? props) -- 1.9.2 --MP_/Dozc30N_kz9b3XY.q1wuw=+--