[plt-scheme] Conditional bind then do something

#!r6rs

(import (rnrs))

(define (some-test arg) #t)

(define do-some-other-func list)

(define (some-function arg)
  (let* ((test (some-test arg))
         (var1 (if test 'a 'b))
         (var2 (if test 'c 'd)))
    (do-some-other-func var1 var2)))

(display (some-function 1))