fix -m command-line flag for new expander

racket/src/expander/main.rkt

@@ -79,6 +79,7 @@
          namespace->instance
          
          namespace-syntax-introduce
+         namespace-datum-introduce
          namespace-require
          dynamic-require         
          module-declared?

racket/src/expander/namespace/api.rkt

@@ -26,6 +26,7 @@
 (provide make-empty-namespace
          
          namespace-syntax-introduce
+         namespace-datum-introduce
          namespace-module-identifier
          namespace-symbol->identifier
           
@@ -86,6 +87,10 @@
     ;; Add scope everywhere:
     (add-ns-scopes s)]))
 
+;; For use by the main Racket entry point:
+(define (namespace-datum-introduce s)
+  (namespace-syntax-introduce (datum->syntax #f s)))
+
 (define (namespace-module-identifier [where (current-namespace)])
   (unless (or (namespace? where)
               (phase? where))

racket/src/racket/cmdline.inc

@@ -346,17 +346,12 @@ static int finish_cmd_line_run(FinishArgs *fa, Repl_Proc repl)
 	save = p->error_buf;
 	p->error_buf = &newbuf;
 	if (!scheme_setjmp(newbuf)) {
-	  Scheme_Object *e, *a[2], *d2s, *nsi, *idb, *b, *cp;
+	  Scheme_Object *e, *a[2], *ndi, *idb, *b, *cp;
 
-          d2s = scheme_builtin_value("datum->syntax");
+          ndi = scheme_builtin_value("namespace-datum-introduce");
-          a[0] = scheme_make_false();
           e = scheme_intern_symbol("main");
-          a[1] = e;
-          e = scheme_apply(d2s, 2, a);
-
-          nsi = scheme_builtin_value("namespace-syntax-introduce");
           a[0] = e;
-          e = scheme_apply(nsi, 1, a);
+          e = scheme_apply(ndi, 1, a);
 
           /* Check that `main' is imported and/or defined: */
           idb = scheme_builtin_value("identifier-binding");