.

original commit: 115c92e9edd600b69ebfcda48bd06df4768eff8a

collects/framework/private/editor.ss

@@ -390,12 +390,13 @@
           get-can-close-parent
           update-frame-filename))
       (define file-mixin
-	(mixin (-keymap<%>) (file<%>)
-	  (inherit get-filename lock get-style-list 
-		   is-modified? change-style set-modified 
-		   get-top-level-window)
+        (mixin (-keymap<%>) (file<%>)
+          (inherit
+            get-filename lock get-style-list 
+            is-modified? set-modified 
+            get-top-level-window)
 
-	  (inherit get-canvases)
+          (inherit get-canvases)
           (define/private (check-lock)
             (let* ([filename (get-filename)]
                    [lock? (and filename

collects/framework/private/main.ss

@@ -136,14 +136,15 @@
       (preferences:set-default 'framework:paren-match #t boolean?)
       (let ([hash-table (make-hash-table)])
 	(for-each (lambda (x) 
-		    (hash-table-put! hash-table x 'define))
-		  '(define defmacro define-macro
+                    (hash-table-put! hash-table x 'define))
+                  '(define defmacro define-macro
                      define-syntax-set
-		     define-values
+                     define-values
                      define/public define/pubment define/private define/field
                      define/override define/augment define/overment define/augride
+                     define/augment-final define/override-final define/public-final
                      define/contract
-		     define-signature 
+                     define-signature 
                      define-syntax define-syntaxes
                      define-schema define/contract))
 	(for-each (lambda (x) 

collects/framework/private/text.ss

@@ -1055,7 +1055,7 @@ WARNING: printf is rebound in the body of the unit to always
                        
                        ;; the idea here is that if you made a string snip, you
                        ;; could have made a string and gotten the style, so you
-                       ;; must intend to have your own style....
+                       ;; must intend to have your own style.
                        (unless (is-a? str/snp string-snip%)
                          (change-style sd old-insertion-point insertion-point))))
                    (loop (cdr txts))]))