diff --git a/racket/src/expander/eval/module.rkt b/racket/src/expander/eval/module.rkt index 220676f861..81e6cfe390 100644 --- a/racket/src/expander/eval/module.rkt +++ b/racket/src/expander/eval/module.rkt @@ -194,9 +194,6 @@ [(zero-phase? phase-level) (lambda (name val) (error 'define-syntax "should not happen at phase level 0"))] - [(zero-phase? (phase+ phase-shift phase-level)) - ;; No use for phase -1 bindings - (lambda (name val) (void))] [else (lambda (name val) (namespace-set-transformer! ns (sub1 phase-level) name val))]))) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 2cdd0218a6..4128085b0a 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -37874,16 +37874,6 @@ static const char *startup_source = "(error" " 'define-syntax" " \"should not happen at phase level 0\"))))" -"(if(zero-phase?" -"(phase+" -" phase-shift_0" -" phase-level_0))" -"(let-values()" -"(lambda(name_0" -" val_0)" -"(begin" -" 'temp52" -"(void))))" "(let-values()" "(lambda(name_0" " val_0)" @@ -37894,7 +37884,7 @@ static const char *startup_source = "(sub1" " phase-level_0)" " name_0" -" val_0))))))))" +" val_0)))))))" "(make-module-body-instance-instance18.1" " temp52_0))))" "(let-values(((instantiate-body_0)"