switch.scm

(define-syntax switch
  (syntax-rules (default)
    [(switch expr clauses ...)
     (let ([result expr])
       (%handle-switch-clauses result clauses ...))]))

(define-syntax %handle-switch-clauses
  (syntax-rules (default)
    [(_ result) 'Nada™]
    [(_ result (default forms ...)) (begin forms ...)]
    [(_ result (value forms ...) other-clauses ...)
     (if (equal? result value)
         (begin forms ...)
       (%handle-switch-clauses result other-clauses ...))]))

(define n 1)

(switch n
  [1 (display "foo\n")]
  [2 (display "bar\n")]
  [default (display "other\n")])