 However, in the type inference view style, an atom is either cyan or magenta depending on whether
 a type has been assigned to it by the inference engine."
   (interactive)
-  (setq (get-view-style) (if (equal (get-view-style) brain-const-color-by-sharability)
-                                     brain-const-color-by-class-inference
-                                   brain-const-color-by-sharability))
+  (set-view-style
+    (if (equal (get-view-style) brain-const-color-by-sharability)
+      brain-const-color-by-class-inference
+      brain-const-color-by-sharability))
   (brain-update-view)
   (info-message (concat "switched to " (get-view-style) " view style")))
 


(defun receive-remove-isolated-atoms-response (status)
  (acknowledge-http-response status "removed isolated atoms"))

(defun to-query-list (&optional context)
  (list

(defun url-for-view-request (&optional context)
  (url-for-request "view?request=" (to-query-list context)))

(defun http-get-and-receive (url &optional context handler)
  (http-get url
    (if handler handler (receive-view context))))

