separate readers to handle tracing

lang/base.rkt

@@ -5,18 +5,11 @@
                      ;; Don't publically export the bindings from #%paramz.
                      exception-handler-key
                      parameterization-key
-                     break-enabled-key
+                     break-enabled-key)
-                     
+         (all-from-out "private/list.rkt"))
-                     ;; Use the traced app
-                     #;#%app)
          
-         (all-from-out "private/list.rkt")
+(require "private/list.rkt")
-         
-         #;(rename-out [traced-app #%app]))
-
-(require "private/list.rkt"
-         "private/traced-app.rkt")
 
 
 ;; Kludge: This forces modbeg to be compiled and packaged.
-(require racket/private/modbeg)
+(require racket/private/modbeg)

lang/reader.rkt

@@ -3,7 +3,7 @@
 ;; http://docs.racket-lang.org/planet/hash-lang-planet.html
 
 #:language (lambda (ip)
-	    `(file ,(path->string base-lang-path)))
+	    `(file ,(path->string whalesong-lang-path)))
 
 (require racket/runtime-path)
-(define-runtime-path base-lang-path "base.rkt")
+(define-runtime-path whalesong-lang-path "whalesong.rkt")

lang/whalesong.rkt

@@ -1,4 +1,11 @@
 #lang s-exp "kernel.rkt"
 
-(require "base.rkt")
+(require "base.rkt"
-(provide (all-from-out "base.rkt"))
+         "traced-app.rkt")
+
+;; Programs written in Whalesong will have tracing enabled by default.
+;; If you don't want this, write in whalesong/base instead.
+
+(provide (except-out (all-from-out "base.rkt")
+                     #%app)
+         (rename-out [traced-app #%app]))