Punt if-debugging syntax.
authorMatt Birkholz <matt@birkholz.chandler.az.us>
Wed, 22 Jun 2011 16:01:12 +0000 (09:01 -0700)
committerMatt Birkholz <matt@birkholz.chandler.az.us>
Wed, 22 Jun 2011 16:01:12 +0000 (09:01 -0700)
src/gtk/gobject.scm
src/gtk/gtk.scm

index f795185d1d2c1f538cdad4cd627f0de184b15422..971b2daef7b81a76642eab5f8989d4c483ec63b2 100644 (file)
@@ -21,7 +21,7 @@ USA.
 
 |#
 
-;;;; GtkObjects
+;;;; GObjects
 ;;; package: (gtk gobject)
 
 (c-include "gtk")
@@ -106,12 +106,10 @@ USA.
 (define (make-gobject-signal-callback name weak-pair callback)
   (named-lambda (gobject-signal-callback instance . args)
     ;; Callbacks run without-interrupts.
-    instance                           ;ignore
     (if (weak-pair/car? weak-pair)
        (let ((gobject (weak-car weak-pair)))
-         (if-debugging
-          (if (not (alien=? (gobject-alien gobject) instance))
-              (warn "Signal instance / gobject mismatch:" instance gobject)))
+         (if (not (alien=? (gobject-alien gobject) instance))
+             (warn "Signal instance / gobject mismatch:" instance gobject))
          (apply callback gobject args))
        (error "Cannot signal a <gobject> that is already GC'ed:" name args))))
 
@@ -266,7 +264,6 @@ USA.
       value)))
 
 (define (gobject-set-properties gobject . property-list)
-  ;; WAS primitive G-OBJECT-SET-PROPERTIES [gtk.c]
   (let* ((gobject-alien (gobject-alien gobject))
         (gvalue (malloc (C-sizeof "GValue") '|GValue|))
         (pspec (malloc (C-sizeof "GParamSpec") '|GParamSpec|))
index 6f7c8024bf6c0b185c8a1c754b35a1e6cd4d5abe..2ef3620a58520eb188df8c271b8d1184c6e0d315 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-Copyright (C) 2007, 2008, 2009, 2010  Matthew Birkholz
+Copyright (C) 2007, 2008, 2009, 2010, 2011  Matthew Birkholz
 
 This file is part of MIT/GNU Scheme.
 
@@ -22,7 +22,7 @@ USA.
 |#
 
 ;;;; Core utilities.
-;;; package: (gtk utilities)
+;;; package: (gtk)
 
 (define-syntax define-integrable-operator
   (er-macro-transformer
@@ -38,18 +38,6 @@ USA.
           (else
            (ill-formed-syntax form))))))
 
-(define-syntax if-debugging
-  (er-macro-transformer
-   (lambda (form rename compare)
-     (declare (ignore compare))
-     (let ((r-begin (rename 'BEGIN)))
-       (if debugging?
-          `(,r-begin ,@(cdr form))
-          `(,r-begin))))))
-
-;; Setting this affects only newly-compiled code.
-(define debugging? #f)
-
 (define-syntax error-if-null
   (syntax-rules ()
     ((_ ALIEN . MESSAGE)