Skip to content
Browse files

Scheme->Racket

  • Loading branch information...
1 parent 76b376b commit fedfbafd322c5b5c83762e6f2a9d858d797d60f5 @Metaxal committed Aug 7, 2012
Showing with 4 additions and 5 deletions.
  1. +1 −1 code-generation.ss
  2. +3 −4 controller.ss
View
2 code-generation.ss
@@ -59,7 +59,7 @@
(define (module-header)
(string-append "\
-#lang scheme/gui
+#lang racket/gui
;;==========================================================================
;;=== Code generated with MrEd Designer " application-version
View
7 controller.ss
@@ -347,10 +347,9 @@
parent-frame
base-path
dft-name
- "*.ss"
+ "*.rkt"
'()
- '(("Scheme (.ss)" "*.ss")
- ("Scheme (.scm)" "*.scm")
+ '(("Racket (.rkt)" "*.rkt")
("Any" "*.*")))])
(and file
(path->string file)
@@ -379,7 +378,7 @@
(let* ([project-mid (send mid get-top-mred-parent)]
;[proj-file (send project-mid get-property-value 'file)]
[base-dir (send project-mid get-project-dir)]; (and proj-file (path-only (string->path proj-file)))]
- [dft-file (string-append (->string (send project-mid get-id)) ".ss")]
+ [dft-file (string-append (->string (send project-mid get-id)) ".rkt")]
[file (if ask-user?
(choose-code-file dft-file base-dir toolbox-frame)
dft-file)]

0 comments on commit fedfbaf

Please sign in to comment.
Something went wrong with that request. Please try again.