I have a much simpler fixed-point operator in my Scheme, called "call-with-result". E.g.:
(call-with-result (lambda (x) 3))
=> 3
(define ps (call-with-result (lambda (x) (cons 'p x))))
(list-head ps 30)
=> (p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p)
You can try it out at <http://hscheme.sourceforge.net/interpret.php>.
|