From 4f3d0622420c36260fc5da64672a635755dfd27c 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.

original commit: 01c859072e7dc2a4b3296e06bf10ff5d82f80295
---
 collects/framework/private/frame.rkt              |  4 ++--
 collects/framework/private/gen-standard-menus.rkt | 15 +++++++++------
 2 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt
index 65bd217e..1f39865f 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 1a652846..1d7d890b 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<%>