X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fbase.scm;h=76a7a6bd1c725c3e1dc7b3206e3813cd58b26123;hp=db1de76f1bd8333f03a0a74bcb93528f74dcedb8;hb=384a8fb56d8500dc3551085191a39c9da70e221c;hpb=6726ec63b405a33dfb68e00c59a0c1210412d05a

diff --git a/irrlicht/base.scm b/irrlicht/base.scm
index db1de76..76a7a6b 100644
--- a/irrlicht/base.scm
+++ b/irrlicht/base.scm
@@ -23,8 +23,7 @@
   #:use-module (system foreign)
   #:export (<irrlicht-base>
             irr-class
-            irr-pointer
-            is-empty?))
+            irr-pointer))
 
 (define-class <irrlicht-base> ()
   (irr-class #:init-value "")
@@ -34,6 +33,3 @@
 ;; in multiple inherited classes
 (define-method (irr-class (obj <irrlicht-base>))
   (slot-ref obj 'irr-class))
-
-(define-method (is-empty? (obj <irrlicht-base>))
-  (equal? (irr-pointer obj) %null-pointer))