From 8f6c0d415c620c97b591b0c3382cc2424c2ebf3e Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 12 May 2010 14:33:06 -0600
Subject: [PATCH] Renaming re: Eli

---
 collects/meta/drdr/metadata.ss | 2 +-
 collects/meta/props            | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/meta/drdr/metadata.ss b/collects/meta/drdr/metadata.ss
index 498e6fa99a..8d952e9cb9 100644
--- a/collects/meta/drdr/metadata.ss
+++ b/collects/meta/drdr/metadata.ss
@@ -36,7 +36,7 @@
 ; XXX Document on help page
 ; XXX Use in computing "changes?"
 (define (path-random? a-path)
-  (get-prop a-path 'drdr:random?))
+  (get-prop a-path 'drdr:random))
 
 (provide/contract
  [PROP:command-line string?]
diff --git a/collects/meta/props b/collects/meta/props
index 0744bbec58..63bc0cfbbc 100755
--- a/collects/meta/props
+++ b/collects/meta/props
@@ -487,7 +487,7 @@ path/s is either such a string or a list of them.
    number->string)
    ;; --------------------
   (make-prop
-   'drdr:random?
+   'drdr:random
    "is file output random?"
    (lambda (str)
      (if (regexp-match? #rx"^(yes|no)$" str)
@@ -1345,9 +1345,9 @@ path/s is either such a string or a list of them.
 "collects/tests/drracket/language-test.rkt" drdr:command-line "mred ~s" drdr:timeout 600
 "collects/tests/drracket/module-lang-test-utils.rkt" drdr:command-line "mred-text -t ~s"
 "collects/tests/drracket/module-lang-test.rkt" drdr:command-line "mred ~s" drdr:timeout 120
-"collects/tests/drracket/randomly-click-language-dialog.rkt" drdr:command-line "mzc ~s" drdr:random? #t
-"collects/tests/drracket/randomly-click-preferences.rkt" drdr:command-line "mzc ~s" drdr:random? #t
-"collects/tests/drracket/randomly-click.rkt" drdr:command-line "" drdr:random? #t
+"collects/tests/drracket/randomly-click-language-dialog.rkt" drdr:command-line "mzc ~s" drdr:random #t
+"collects/tests/drracket/randomly-click-preferences.rkt" drdr:command-line "mzc ~s" drdr:random #t
+"collects/tests/drracket/randomly-click.rkt" drdr:command-line "" drdr:random #t
 "collects/tests/drracket/repl-test.rkt" drdr:command-line "mred ~s" drdr:timeout 600
 "collects/tests/drracket/sample-solutions-one-window.rkt" drdr:command-line "mred-text -t ~s"
 "collects/tests/drracket/save-teaching-lang-file.rkt" drdr:command-line "mred ~s"