0. #lang racket
1.  
2. (require racket/control)
3.  
4. (define-syntaxes (for/stream for*/stream)
5.   (let ()
6.     (define ((make-for/stream derived) stx)
7.       (syntax-case stx ()
8.         [(_ clauses . body)
9.          #`(let ()
10.              (define (stream-loop element continue)
11.                (if continue
12.                    (stream-cons element
13.                                 (call-with-values
14.                                  (thunk (call/prompt continue))
15.                                  stream-loop))
16.                    element))
17.              (call-with-values
18.               (thunk
19.                (prompt
20.                 (#,derived
21.                  #,stx () clauses
22.                  (let/cc continue
23.                    (abort (let () . body) continue)))
24.                 (abort empty-stream #f)))
25.               stream-loop))]))
26.     (values (make-for/stream #'for/fold/derived)
27.             (make-for/stream #'for*/fold/derived))))
28.  
29. (stream->list (for/stream ([i (in-list '(1 2 3 4))]) (* i i)))

=>

'(1 4 9 16)