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

@@ -6,3 +6,6 @@
 	time)
   (files profile))
 
+(define-structure no-mini-profiler mini-profiler-interface
+  (open scheme)
+  (files no-profile))