clean up get-current-color-scheme{-name}

original commit: 78fbe54da018738634248745f5de24bc1d1de86f

pkgs/gui-pkgs/gui-lib/framework/main.rkt

@@ -1950,11 +1950,12 @@
   (-> symbol? void?)
   (name)
   @{Sets
-    the current color scheme to @racket[name], if @racket[name] is
-    @racket[color-prefs:known-color-scheme-name?]. Otherwise, does nothing.})
+    the current color scheme to the scheme named @racket[name], 
+    if @racket[name] is @racket[color-prefs:known-color-scheme-name?].
+    Otherwise, does nothing.})
  
  (proc-doc
-  color-prefs:get-current-color-scheme
+  color-prefs:get-current-color-scheme-name
   (-> color-prefs:color-scheme-style-name?)
   @{Returns the current color scheme's name.})
  

pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt

@@ -815,6 +815,9 @@
     [found-color-scheme found-color-scheme]
     [else (car known-color-schemes)]))
 
+(define (get-current-color-scheme-name)
+  (color-scheme-name (get-current-color-scheme)))
+
 ;; string -> (or/c #f color-scheme?)
 (define (lookup-color-scheme name)
   (for/or ([known-color-scheme (in-list known-color-schemes)])

pkgs/gui-pkgs/gui-lib/framework/private/sig.rkt

@@ -433,7 +433,7 @@
      
      add-color-scheme-preferences-panel
      set-current-color-scheme
-     get-current-color-scheme
+     get-current-color-scheme-name
      known-color-scheme-name?
      color-scheme-style-name?
      lookup-in-color-scheme