From e34badc4cf4584d5df5429549a66e029f2f393c6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 10 Jan 2009 23:12:52 +0000 Subject: [PATCH] fixed some typos: svn: r13059 --- collects/redex/private/traces.ss | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/redex/private/traces.ss b/collects/redex/private/traces.ss index 3bf3888bbd..702d70a2ac 100644 --- a/collects/redex/private/traces.ss +++ b/collects/redex/private/traces.ss @@ -127,7 +127,6 @@ #:multiple? [multiple? #f] #:pred [pred (λ (x) #t)] #:pp [pp default-pretty-printer] - #:default-arrow-colors [default-arrow-colors '()] #:scheme-colors? [scheme-colors? #t] #:colors [colors '()] #:layout [layout void]) @@ -137,7 +136,6 @@ #:multiple? multiple? #:pred pred #:pp pp - #:default-arrow-colors default-arrow-colors #:scheme-colors? scheme-colors? #:colors colors #:layout layout)] @@ -146,7 +144,7 @@ (send ps-setup set-file filename) (send ps-setup set-mode 'file) (parameterize ([current-ps-setup ps-setup]) - (send graph-pb print #t #f 'postscript #f #f)))) + (send graph-pb print #t #f 'postscript #f #f #t)))) (define (traces reductions pre-exprs #:multiple? [multiple? #f]