macro stepper: fixed documentation build

(removed dependence on mred-kernel)

svn: r13152

original commit: b75dfb878ae38a75bd54ce9d208f1f86d5ba26b1

collects/macro-debugger/syntax-browser/interfaces.ss

@@ -1,9 +1,33 @@
 #lang scheme/base
 (require scheme/class
          macro-debugger/util/class-iop
-         "../util/notify.ss")
+         (for-syntax scheme/base))
 (provide (all-defined-out))
 
+;; Helpers
+
+(define-for-syntax (join . args)
+  (define (->string x)
+    (cond [(string? x) x]
+          [(symbol? x) (symbol->string x)]
+          [(identifier? x) (symbol->string (syntax-e x))]
+          [else (error '->string)]))
+  (string->symbol (apply string-append (map ->string args))))
+
+;; not in notify.ss because notify depends on scheme/gui
+(define-interface-expander methods:notify
+  (lambda (stx)
+    (syntax-case stx ()
+      [(_ name ...)
+       (apply append
+              (for/list ([name (syntax->list #'(name ...))])
+                (list ;; (join "init-" #'name)
+                      (join "get-" name)
+                      (join "set-" name)
+                      (join "listen-" name))))])))
+
+;; Interfaces
+
 ;; config<%>
 (define-interface config<%> ()
   ((methods:notify suffix-option

collects/macro-debugger/view/interfaces.ss

@@ -1,12 +1,11 @@
 
 #lang scheme/base
 (require macro-debugger/util/class-iop
-         "../util/notify.ss"
          (prefix-in sb: "../syntax-browser/interfaces.ss"))
 (provide (all-defined-out))
 
 (define-interface config<%> (sb:config<%>)
-  ((methods:notify macro-hiding-mode
+  ((sb:methods:notify macro-hiding-mode
                       show-hiding-panel?
                       identifier=?
                       highlight-foci?