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

More "~n" -> "\n" changes

Browse Source 
original commit: 8e0f8dd39c3744472b450021f003f9cbe8cbcb62
This commit is contained in:
Eli Barzilay 2010-08-26 12:10:48 -04:00
parent 7eb9bb8efb
commit f1c0501c6b
5 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/macro-debugger/model/reductions-config.rkt
View File

@ -249,9 +249,9 @@
(lambda (stx #:allow-nonstx? [allow-nonstx? #f] #:default [default #f])
(let ([replacement (hash-ref table stx #f)])
(if replacement
(begin #;(printf " replacing ~s with ~s~n" stx replacement)
(begin #;(printf " replacing ~s with ~s\n" stx replacement)
replacement)
(begin #;(printf " not replacing ~s~n" stx)
(begin #;(printf " not replacing ~s\n" stx)
default)))))
(define (make-renames-table from0 to0)

16
collects/macro-debugger/model/stx-util.rkt
View File

@ -36,10 +36,10 @@
[old-parts (stx->list old-expr)])
;; FIXME
(unless (= (length new-parts) (length old-parts))
(printf "** syntax/restamp~n~s~n" (quote-syntax #,stx))
(printf "pattern : ~s~n" (syntax->datum #'(pa (... ...))))
(printf "old parts: ~s~n" (map syntax->datum old-parts))
(printf "new parts: ~s~n" (map syntax->datum new-parts)))
(printf "** syntax/restamp\n~s\n" (quote-syntax #,stx))
(printf "pattern : ~s\n" (syntax->datum #'(pa (... ...))))
(printf "old parts: ~s\n" (map syntax->datum old-parts))
(printf "new parts: ~s\n" (map syntax->datum new-parts)))
(d->so
old-expr
(map (lambda (new old) (syntax/restamp pa new old))
@ -49,10 +49,10 @@
;; FIXME
#'(begin
(unless (and (stx-pair? new-expr) (stx-pair? old-expr))
(printf "** syntax/restamp~n~s~n" (quote-syntax #,stx))
(printf "pattern : ~s~n" (syntax->datum (quote-syntax (pa . pb))))
(printf "old parts: ~s~n" old-expr)
(printf "new parts: ~s~n" new-expr))
(printf "** syntax/restamp\n~s\n" (quote-syntax #,stx))
(printf "pattern : ~s\n" (syntax->datum (quote-syntax (pa . pb))))
(printf "old parts: ~s\n" old-expr)
(printf "new parts: ~s\n" new-expr))
(let ([na (stx-car new-expr)]
[nb (stx-cdr new-expr)]
[oa (stx-car old-expr)]

2
collects/macro-debugger/model/trace-raw.rkt
View File

@ -18,7 +18,7 @@
(define val (cdr sig+val))
(define t (tokenize sig val pos))
(send browser add-text
(format "Signal: ~s: ~s~n"
(format "Signal: ~s: ~s\n"
pos
(token-name (position-token-token t))))
(when val

2
collects/macro-debugger/model/trace.rkt
View File

@ -50,7 +50,7 @@
[val (cdr sig+val)]
[t (tokenize sig val pos)])
(when (trace-verbose?)
(printf "~s: ~s~n" pos
(printf "~s: ~s\n" pos
(token-name (position-token-token t))))
(set! pos (add1 pos))
t))))

8
collects/macro-debugger/syntax-browser/properties.rkt
View File

@ -255,19 +255,19 @@
;; display-kv : any any -> void
(define/private (display-kv key value)
(display (format "~a~n" key) key-sd)
(display (format "~s~n~n" value) #f))
(display (format "~a\n" key) key-sd)
(display (format "~s\n\n" value) #f))
;; display-subkv : any any -> void
(define/public (display-subkv k v)
(display (format "~a: " k) sub-key-sd)
(display (format "~a~n" v) #f))
(display (format "~a\n" v) #f))
(define/public (display-subkv/value k v)
(display-subkv k v)
#;
(begin
(display (format "~a:~n" k) sub-key-sd)
(display (format "~a:\n" k) sub-key-sd)
(let* ([value-text (new text:standard-style-list% (auto-wrap #t))]
[value-snip (new editor-snip% (editor value-text))]
[value-port (make-text-port value-text)])