Нашёл на просторах Интернета: https://bitbucket.org/ktg/l/src/337c13802c5e?at=master
Умеет макросы
(define-syntax sum
(syntax-rules ()
[(sum) 0]
[(sum a) a]
[(sum a b) (+ a b)]
[(sum a b ...) (+ a (sum b ...))]))
(define-syntax-rule (infix a op b) (op a b))
(define-syntax-rule (ret a) (return a))
(defmacro unless (pred a b)
`(if (not ,pred) ,a ,b))
(main
(prn (sum 1 2 3 4))
(prn (infix 1 + 2))
(unless false (prn "Will print") (prn "Will not print"))
(ret 1))
Примеры смотреть в https://bitbucket.org/ktg/l/src/337c13802c5e/ex/?at=master
Хвалите и критикуйте!