,inspect barfs on circular data structures

Hi there,

many thanks for the announcement on 0.25.  So far, it hasn't been
showing any snags.  What is annoying, though, is that the initial
invokation of ,inspect doesn't set $write-depth and $write-length, so
you can't inspect circular data structures (unless you hide them in a
closure and ...)  If anyone's interested, the following (somewhat
kludgey) patch fixes this.

Keep up the great work =8-} Chipsy

--the bug stops here--
*** env/inspect.scm~	Sun Dec 12 11:53:35 1993
--- env/inspect.scm	Sun Dec 12 12:10:47 1993
***************
*** 311,319 ****
    '(&opt form)
    (lambda (form)
      (if form
! 	(showing-focus-object
! 	 (lambda ()
! 	   (evaluate-and-select form (environment-for-commands)))))
      (inspect)))

  (define (debug)
--- 311,322 ----
    '(&opt form)
    (lambda (form)
      (if form
! 	(let-fluids $write-depth *write-depth*
! 		    $write-length *write-length*
! 	  (lambda ()
! 	    (showing-focus-object
! 	     (lambda ()
! 	       (evaluate-and-select form (environment-for-commands)))))))
      (inspect)))

  (define (debug)