Browse Source

Cleaned up coefficient getter

Samuel W. Flint 8 years ago
parent
commit
af77a89536
1 changed files with 2 additions and 3 deletions
  1. 2 3
      lisp-cas.org

+ 2 - 3
lisp-cas.org

@@ -825,10 +825,9 @@ As there are various forms of expressions, and to provide for simplification, th
   (defun coefficient (term)
     (when (classified-as-p term 'polynomial-term)
       (classification-case term
-                           (variable 1)
-                           (power 1)
+                           (numeric term)
                            (multiplicative (second term))
-                           (numeric term))))
+                           (* 1))))
 #+END_SRC
 
 *** TODO Get Term Variables