From 01c859072e7dc2a4b3296e06bf10ff5d82f80295 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Sun, 25 Sep 2011 19:46:47 -0400
Subject: [PATCH] Rename "standard-menus.rkt" -> "standard-menus.rktl".

Since it's a file that gets included.  This is likely to be temporary,
if I get on with turning the whole thing into a macro.
---
 collects/framework/private/frame.rkt              |  4 ++--
 collects/framework/private/gen-standard-menus.rkt | 15 +++++++++------
 collects/framework/private/info.rkt               |  3 ---
 .../{standard-menus.rkt => standard-menus.rktl}   |  0
 4 files changed, 11 insertions(+), 11 deletions(-)
 delete mode 100644 collects/framework/private/info.rkt
 rename collects/framework/private/{standard-menus.rkt => standard-menus.rktl} (100%)

diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt
index 65bd217e4a..1f39865f40 100644
--- a/collects/framework/private/frame.rkt
+++ b/collects/framework/private/frame.rkt
@@ -1168,13 +1168,13 @@
   (mixin (basic<%>) (pasteboard-info<%>)
     (super-new)))
 
-(include "standard-menus.rkt")
+(include "standard-menus.rktl")
 
 (define -editor<%> (interface (standard-menus<%>)
                      get-entire-label
                      get-label-prefix
                      set-label-prefix
-                     
+
                      get-canvas%
                      get-canvas<%>
                      get-editor%
diff --git a/collects/framework/private/gen-standard-menus.rkt b/collects/framework/private/gen-standard-menus.rkt
index 1a652846ff..1d7d890b4f 100644
--- a/collects/framework/private/gen-standard-menus.rkt
+++ b/collects/framework/private/gen-standard-menus.rkt
@@ -8,8 +8,11 @@
 
 (define-runtime-path here ".")
 
-(define standard-menus.rkt-filename (simplify-path (build-path here "standard-menus.rkt")))
-(define docs-menus-filename (simplify-path (build-path here 'up 'up "scribblings" "framework" "standard-menus.scrbl")))
+(define standard-menus.rktl-filename
+  (simplify-path (build-path here "standard-menus.rktl")))
+(define docs-menus-filename
+  (simplify-path (build-path here 'up 'up
+                             "scribblings" "framework" "standard-menus.scrbl")))
 
 ;; build-before-super-item-clause : an-item -> (listof clause)
 (define build-before-super-item-clause
@@ -122,7 +125,7 @@
               ,(generic-initializer generic)))]))
 
 (define (main)
-  (write-standard-menus.rkt)
+  (write-standard-menus.rktl)
   (write-docs))
 
 (define (write-docs)
@@ -203,10 +206,10 @@
       (display docs-footer-text port))
     #:exists 'truncate))
 
-(define (write-standard-menus.rkt)
-  (printf "writing to ~a\n" standard-menus.rkt-filename)  
+(define (write-standard-menus.rktl)
+  (printf "writing to ~a\n" standard-menus.rktl-filename)
 
-  (call-with-output-file standard-menus.rkt-filename
+  (call-with-output-file standard-menus.rktl-filename
     (λ (port)
       (pretty-print
        `(define standard-menus<%>
diff --git a/collects/framework/private/info.rkt b/collects/framework/private/info.rkt
deleted file mode 100644
index 97b1649d52..0000000000
--- a/collects/framework/private/info.rkt
+++ /dev/null
@@ -1,3 +0,0 @@
-#lang setup/infotab
-
-(define compile-omit-paths '("standard-menus.rkt"))
diff --git a/collects/framework/private/standard-menus.rkt b/collects/framework/private/standard-menus.rktl
similarity index 100%
rename from collects/framework/private/standard-menus.rkt
rename to collects/framework/private/standard-menus.rktl