unbreak namespace-variable-value

Repair a mistake in b4f0499256.
2018-02-28 20:33:43 -07:00 · 2018-02-28 20:33:43 -07:00 · e6bab71e8a
commit e6bab71e8a
parent 7bdc3d626b
2 changed files with 2 additions and 2 deletions
--- a/racket/src/expander/namespace/api.rkt
+++ b/racket/src/expander/namespace/api.rkt
@ -183,7 +183,7 @@
         (define-values (v primitive? extra-inspector protected?)
           (if b
               (binding-lookup b empty-env null ns (namespace-phase ns) id)
-               (values variable #f #f)))
+               (values variable #f #f #f)))
         (unless (variable? v)
           (escape
            (or failure-thunk
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@ -43186,7 +43186,7 @@ static const char *startup_source =
 " ns126_0"
 " temp127_1"
 " id128_0))"
-"(values variable #f #f))))"
+"(values variable #f #f #f))))"
 "(begin"
 "(if(variable? v_194)"
 "(void)"