#lang racket
(require [only-in plait test test/exn error print-only-errors])

(define-syntax my-let1
  (syntax-rules ()
    [(my-let1 (var val) body)
     ((lambda (var) body) val)]))

(test (my-let1 (x 3) (+ x x)) 6)