ntoronto

#lang racket

(require (for-syntax racket/list))  ; for list functions

(define-syntax (inline-sort stx)
  (syntax-case stx ()
    [(_ lst ...)
     (with-syntax ([(vs ...) (generate-temporaries #'(lst ...))])
       #`(let ([vs lst] ...)
           #,(inline-sort/k #'(vs ...) (λ (vs) #`(values #,@vs)))))]))