This for guile 2.4 and master,

> (eval `(let-syntax ((f (lambda (x) ,#'(+ (pk 'a 1) 2)))) f) (current-module))

;;; (#<syntax a> 1)

But without eval:

> (let-syntax ((f (lambda (x) #'(+ (pk 'a 1) 2)))) f)

;;; (a 1)