0. #lang racket
1. (define-syntax (define/nonrec so)
2.   (syntax-case so ()
3.     [(_define (id . args) . body)
4.      #'(define (id . args)
5.          (let-syntax ([id (lambda (stx)
6.                             (syntax-case stx (id)
7.                               #'(raise-syntax-error 'id "not in scope" stx)))])
8.            . body))]))
9.  
10. (define/nonrec (foo x) (+ x 1))
11. (foo 2)
12.  
13. (define/nonrec (bar x) (bar (+ x 1)))
14. (bar 2)

=>

3

eval:4:0: bar: not in scope

in: (bar (+ x 1))

bar: undefined;

cannot reference an identifier before its definition

in module: 'm