             _   (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)))
 

            (Identifier string range)
                (Symbol string range)
            (Lambda arguments expression range)
                (List (Cons (fn-symbol range)
                      (Cons (function-arguments-to-sexp arguments range)
                      (Cons (expression-to-sexp expression)
                            Empty)))

                (string-concat (list 77 97 108 102 111 114 109 101 100 84 121 112 101 69 114 114 111 114)
                               (error-range-to-string range))))

(def sexp-to-complex-type (name parameters range)
     (result-map (fn (sub-types)
                     (ComplexType name sub-types range))
