Welcome to the CHICKEN Scheme pasting service

  (define (find searchf iterstate arr result)
    (define temp (searchf iterstate arr))
    
    (define nextresult (first temp)); search result
    (define nextiterstate (second temp)); iteration state
    
    ;(cons nextresult result)
    ; so then where do we (find searchf newstate arr ) ...like this?:
    (find searchf nextiterstate arr (cons nextresult result))
    )

(define (find searchf iterstate arr acc)
    (define temp (searchf iterstate arr))
    
    (define result (first temp)); search result
    (define iterstate (second temp)); next iteration state
    (if (null? result)
        (acc)
        (find searchf nextiterstate arr (cons nextresult acc))) )