...

original commit: ba2f65968b53abe6a5ee06df9d6299076c64951f

collects/framework/exit.ss

@@ -32,7 +32,7 @@
 	(dynamic-wind
 	 (lambda () (set! exiting? #t))
 	 (lambda ()
-	   (if (and (let*-values ([(w capW)
+	   (if (and (let*-values ([(w capw)
 				   (if (eq? (system-type) 'windows)
 				       (values "exit" "Exit")
 				       (values "quit" "Quit"))]
@@ -41,7 +41,7 @@
 						  w
 						  "?")])
 		      (if (preferences:get 'framework:verify-exit)
-			  (if (gui-utils:get-choice message capW "Cancel")
+			  (if (gui-utils:get-choice message capw "Cancel")
 			      #t
 			      #f)
 			  #t))

collects/framework/finder.ss

@@ -65,8 +65,8 @@
       (inherit center show)
       
       (private
-	[WIDTH 500]
-	[HEIGHT 400]
+	[default-width 500]
+	[default-height 400]
 	dirs 
 	current-dir
 	last-selected
@@ -313,8 +313,8 @@
       (sequence
 	(super-init (if save-mode? "Put file" "Get file")
 		    parent-win 
-		    WIDTH 
-		    HEIGHT))
+		    default-width 
+		    default-height))
       
       (private
 	

collects/framework/framework.ss

@@ -17,17 +17,17 @@
 	   [core:thread : mzlib:thread^]
 	   [framework:keys : framework:keys^]
 	   [framework:test : framework:test^]
-	   [M : mred-interfaces^])
-   (link [F : frameworkc^ ((require-relative-library "frameworkc.ss")
+	   [m : mred-interfaces^])
+   (link [f : frameworkc^ ((require-relative-library "frameworkc.ss")
 			   core:string
 			   core:function
 			   core:pretty-print
 			   core:file
 			   core:thread
-			   M
+			   m
 			   framework:keys
 			   framework:test)])
-   (export (open F)))
+   (export (open f)))
  #f
  mzlib:string^
  mzlib:function^

collects/framework/frameworks.ss

@@ -1,7 +1,5 @@
 ;; language specification
-(read-case-sensitive #t)
 (compile-allow-cond-fallthrough #t)
-(compile-allow-set!-undefined #t)
 
 (require-library "refer.ss")
 (require-library "macro.ss")