[Bug-kawa] [bug #15876] Ports are not reclaimed automatically when becoming inaccesible

[anonymous]

URL:
  <http://savannah.gnu.org/bugs/?func=detailitem&item_id=15876>

                 Summary: Ports are not reclaimed automatically when becoming
inaccesible
                 Project: Kawa
            Submitted by: None
            Submitted on: Thu 02/23/06 at 01:40
                Category: Scheme library
                Severity: 3 - Normal
              Item Group: Unexpected result
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open

    _______________________________________________________

Details:

The following will throw an OutOfMemoryError if the port
is not explicitely closed.

  (let ((build-string
           (lambda ()
             (let ((op (open-output-string)))
               (let ((str (get-output-string op)))
                 ;;(close-output-port op)
                 str)))))
     (do (((i :: <int>) 1000000 (- i 1))
          (x (build-string) (build-string)))
         ((< i 0) x)))

The documentation says:

      The port can be closed by the procedure close-output-port,
      though its storage will be reclaimed by the garbage collector
      if it becomes inaccessible.







    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?func=detailitem&item_id=15876>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/