Welcome to the CHICKEN Scheme pasting service

(define (cheap-pre-check . args) 
  ; this can return #t of #f
  #t)

(define (expensive-calculation . args)
  ; this can return #f or some other object
  (list 'some 'object))


(define (entry-point)
  (if (not (cheap-pre-check 'foo 'bar))
    (list #f 'foobar)
    (let ((result (expensive-calculation 'baz 'moo)))
      (if result (list #t result) (list #f 'foobar)))))

(define (entry-point)
    (let* ((r (cheap-pre-check 'foo 'bar))
           (r2 (and r (expensive-calculation 'baz 'moo))))
      (list (and r r2 #t) (and r2 'foobar))))

(define (entry-point)
  (or (and (cheap-pre-check 'foo 'bar)
           (expensive-calculation 'baz 'moo))
      (list #f 'foobar)))

(define (entry-point)
  (cond ((and (cheap-pre-check 'foo 'bar)
              (expensive-calculation 'baz 'moo))
         => (lambda (result)
              (list #t result)))
        (else (list #f 'foobar))))