ARGHGHGHGHGHGHGHGGHGH

svn: r18308
2010-02-23 21:43:08 +00:00 · 2010-02-23 21:43:08 +00:00 · f60645da2c
commit f60645da2c
parent e1cd160a40
1 changed files with 2 additions and 2 deletions
--- a/collects/scheme/private/class-internal.ss
+++ b/collects/scheme/private/class-internal.ss
@ -4020,9 +4020,9 @@

 (define-traced (is-a? v c)
  (trace-begin
-   (trace (when (object? v)
-            (inspect-event v)))
+   (trace (when (object? v) (inspect-event v)))
   (cond
+     [(not (object? v)) #f]
     [(class? c) ((class-object? (class-orig-cls c)) ((object-unwrapper v) v))]
     [(interface? c)
      (and (object? v)