             _   (Error (MalformedTypeError range))))
 
 (def sexp-to-complex-or-function-type (name parameters range)
-     (match (fn-symbol? name)
+     (match (string-equal? name (fn-string))
             True   (sexp-to-function-type name parameters range)
             False  (sexp-to-complex-type name parameters range)))
 


(def symbol-to-string (symbol)
     (match symbol

                (List (list-map expression-to-sexp expressions) range)))

(def function-definition-to-sexp (name arguments expression range)
    (List (Cons (Symbol (def-string) range)
          (Cons (Symbol name range)
          (Cons (function-arguments-to-sexp arguments range)
          (Cons (expression-to-sexp expression)
