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

redex, macro-debugger: stxclass -> syntax/parse, syntax/private/util

Browse Source 
svn: r15986

original commit: 9ca3192a60a2311f0437bb020485e9231cdf9c0d
This commit is contained in:
Ryan Culpepper 2009-09-11 23:16:22 +00:00
parent 3bed74dc96
commit 0c63d827d6
2 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/macro-debugger/model/reductions-engine.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require (for-syntax scheme/base) (require (for-syntax scheme/base)
(for-syntax stxclass) (for-syntax syntax/parse)
scheme/list scheme/list
scheme/contract scheme/contract
"deriv.ss" "deriv.ss"
@ -12,7 +12,10 @@
(provide (all-from-out "steps.ss") (provide (all-from-out "steps.ss")
(all-from-out "reductions-config.ss") (all-from-out "reductions-config.ss")
DEBUG DEBUG
R) R
!)
(define-syntax ! (syntax-rules ()))
(define-syntax-rule (with-syntax1 ([pattern rhs]) . body) (define-syntax-rule (with-syntax1 ([pattern rhs]) . body)
(syntax-case rhs () (syntax-case rhs ()
@ -22,9 +25,6 @@
'pattern) 'pattern)
#'x)])) #'x)]))
(begin-for-syntax
(expr/c-use-contracts? #f))
(define-syntax-rule (DEBUG form ...) (define-syntax-rule (DEBUG form ...)
(when #f (when #f
form ... (void))) form ... (void)))

13
collects/macro-debugger/syntax-browser/interfaces.ss
View File

@ -19,12 +19,13 @@
(lambda (stx) (lambda (stx)
(syntax-case stx () (syntax-case stx ()
[(_ name ...) [(_ name ...)
(apply append (datum->syntax #f
(for/list ([name (syntax->list #'(name ...))]) (apply append
(list ;; (join "init-" #'name) (for/list ([name (syntax->list #'(name ...))])
(join "get-" name) (list ;; (join "init-" #'name)
(join "set-" name) (join "get-" name)
(join "listen-" name))))]))) (join "set-" name)
(join "listen-" name)))))])))
;; Interfaces ;; Interfaces