Calling an unhygienic macro from another macro

gistfile1.txt

#lang racket

(require syntax/parse
         syntax/parse/define
         (for-syntax racket/base))


(define-syntax (maclambda stx)
  (syntax-parse stx
    [(_ expr val)
     (with-syntax ([x (datum->syntax stx 'x)])
       #'((λ (x) expr) val))]))

(define-syntax (call-maclambda stx)
  (syntax-parse stx
    [(_ expr val)
     #'(maclambda expr val)]))

;; this works:
(maclambda (add1 x) 5)

;; but this doesn't:
;; (call-maclambda (add1 x) 5)