suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

macro stepper: fixed documentation build

Browse Source 
(removed dependence on mred-kernel)

svn: r13152

original commit: b75dfb878ae38a75bd54ce9d208f1f86d5ba26b1
This commit is contained in:
Ryan Culpepper 2009-01-15 14:40:52 +00:00
parent 21d92e0400
commit c90711b06a
1 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/macro-debugger/util/notify.ss
View File

@ -16,9 +16,7 @@
menu-option/notify-box menu-option/notify-box
menu-group/notify-box menu-group/notify-box
check-box/notify-box check-box/notify-box
choice/notify-box choice/notify-box)
methods:notify)
(define-for-syntax (join . args) (define-for-syntax (join . args)
(define (->string x) (define (->string x)
@ -74,19 +72,6 @@
(define/public-final (listen-name listener) (define/public-final (listen-name listener)
(send name listen listener))))])) (send name listen listener))))]))
(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))))])))
(define-syntax (connect-to-pref stx) (define-syntax (connect-to-pref stx)
(syntax-case stx () (syntax-case stx ()
[(connect-to-pref name pref) [(connect-to-pref name pref)