[bug #30071] unfold isn't tail-recursive

[Szavai Gyula]

URL:
  <http://savannah.gnu.org/bugs/?30071>

                 Summary: unfold isn't tail-recursive
                 Project: Guile
            Submitted by: szgyg
            Submitted on: Mon 07 Jun 2010 06:30:34 PM GMT
                Category: None
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any

    _______________________________________________________

Details:

(use-modules (srfi srfi-1))

(write
 (false-if-exception
  (let ((stack (* 0.05 (cadr (member 'stack (debug-options))))))
    (unfold (lambda (x) (> x stack)) identity 1+ 0)
    #t)))





    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?30071>

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