added package "no-mini-profiler" with same interface as "mini-profiler"

s48/profile/no-profile.scm

@@ -0,0 +1,20 @@
+(define (profile-init!)
+  #f)
+
+(define (display-profile)
+  (display "No profiling data available.")
+  (newline))
+
+(define-syntax define-prof
+  (syntax-rules
+      ()
+    ((_ ?args ...)
+     (define ?args ...))))
+
+(define-syntax account-for
+  (syntax-rules
+      ()
+    ((_ ?account ?body ...)
+     (begin
+       ?body
+       ...))))

s48/profile/packages.scm

@@ -5,4 +5,7 @@
 	extended-ports
 	time)
   (files profile))
-   
+
+(define-structure no-mini-profiler mini-profiler-interface
+  (open scheme)
+  (files no-profile))