create safe submod at top level

sugar/main.rkt

@@ -1,30 +1,22 @@
 #lang racket/base
 
-(require
+(define-syntax-rule (r+p modname)
-  "cache.rkt"
+  (begin
-  "coerce.rkt"
+    (require modname)
-  "container.rkt"
+    (provide (all-from-out modname))
-  "debug.rkt"
+    (module+ safe
-  "define.rkt"
+      (require (submod modname safe))
-  "file.rkt"
+      (provide (all-from-out (submod modname safe))))))
-  "include.rkt"
-  "len.rkt"
-  "list.rkt"
-  "misc.rkt"
-  "string.rkt"
-  "xml.rkt")
 
-(provide 
+(r+p "cache.rkt")
- (all-from-out
+(r+p "coerce.rkt")
-  "cache.rkt"
+(r+p "container.rkt")
-  "coerce.rkt"
+(r+p "debug.rkt")
-  "container.rkt"
+(r+p "define.rkt")
-  "debug.rkt"
+(r+p "file.rkt")
-  "define.rkt"
+(r+p "include.rkt")
-  "file.rkt"
+(r+p "len.rkt")
-  "include.rkt"
+(r+p "list.rkt")
-  "len.rkt"
+(r+p "misc.rkt")
-  "list.rkt"
+(r+p "string.rkt")
-  "misc.rkt"
+(r+p "xml.rkt")
-  "string.rkt"
-  "xml.rkt"))