>>520
(define (less-than a b)
　(if (a > b) #t #f))

(less-than 4) ==> Error: 引数が足らん

となるのでそういうことはできない気がします。
Scheme だと

(lambda (x) (less-than 4 x))

みたいにその場で名前なしの手続きを
つくるのが普通じゃないかな?