>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