www

commit f1c0501c6b79de5009ffc1ab02c1fed4d49f3ed5
parent 7eb9bb8efb1c7071ec41db17145009b4b68e7d44
Author: Eli Barzilay <eli@barzilay.org>
Date:   Thu, 26 Aug 2010 12:10:48 -0400

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

original commit: 8e0f8dd39c3744472b450021f003f9cbe8cbcb62

Diffstat:
M
collects/macro-debugger/model/reductions-config.rkt
 | 
4
++--
M
collects/macro-debugger/model/stx-util.rkt
 | 
16
++++++++--------
M
collects/macro-debugger/model/trace-raw.rkt
 | 
2
+-
M
collects/macro-debugger/model/trace.rkt
 | 
2
+-
M
collects/macro-debugger/syntax-browser/properties.rkt
 | 
8
++++----

5 files changed, 16 insertions(+), 16 deletions(-)
diff --git a/collects/macro-debugger/model/reductions-config.rkt b/collects/macro-debugger/model/reductions-config.rkt
@@ -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)
diff --git a/collects/macro-debugger/model/stx-util.rkt b/collects/macro-debugger/model/stx-util.rkt
@@ -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)]
diff --git a/collects/macro-debugger/model/trace-raw.rkt b/collects/macro-debugger/model/trace-raw.rkt
@@ -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
diff --git a/collects/macro-debugger/model/trace.rkt b/collects/macro-debugger/model/trace.rkt
@@ -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))))
diff --git a/collects/macro-debugger/syntax-browser/properties.rkt b/collects/macro-debugger/syntax-browser/properties.rkt
@@ -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)])