Fix the bug that the default language symbols override the symbols.

2 years ago · ac2cf2ac58
parent 043257bb64
commit ac2cf2ac58
1 changed files with 4 additions and 2 deletions
--- a/src/cipher_analytical_machine/cli/cli.clj
+++ b/src/cipher_analytical_machine/cli/cli.clj
@ -122,8 +122,10 @@
 (defn set-symbols
  "Set defaults symbols for a language."
  [options]
-  (set-option options :symbols
+  (if (contains? options :language)
-              (sf/default-symbol-factory (:language options))))
+    (set-option options :symbols
                (sf/default-symbol-factory (:language options)))
    options))
 (defn load-and-set-option
  "Load the option and set it."