Simplifying organization

collects/datalog/lang/lang.rkt

@@ -24,5 +24,5 @@
        (print-result 
         #,(compile-stmt (syntax->datum #'stmt))))]))
 
-(provide module-begin
-         top-interaction)
+(provide (rename-out [module-begin #%module-begin]
+                     [top-interaction #%top-interaction]))

collects/datalog/lang/module.rkt

@@ -1,8 +0,0 @@
-#lang racket/base
-(require "lang.rkt")
-
-(provide (rename-out [module-begin #%module-begin]
-                     [top-interaction #%top-interaction])
-         (except-out (all-from-out racket/base) 
-                     #%top-interaction
-                     #%module-begin))

collects/datalog/lang/reader.rkt

@@ -1,5 +1,5 @@
 (module reader syntax/module-reader
-  #:language 'datalog/lang/module
+  #:language 'datalog/lang/lang
   #:read 
   (lambda ([in (current-input-port)])
     (this-read-syntax #f in))