Diff of /maxima-pre59/src/comm.lisp [1759ba] .. [44a136]  Maximize  Restore

Switch to side-by-side view

--- a/maxima-pre59/src/comm.lisp
+++ b/maxima-pre59/src/comm.lisp
@@ -925,6 +925,7 @@
 
 (DEFMFUN $FLOAT (E) 
  (COND ((NUMBERP E) (FLOAT E))
+       ((and (symbolp e) (mget e '$numer)))
        ((OR (ATOM E) (MEMQ 'array (CDAR E))) E)
        ((EQ (CAAR E) 'RAT) (FPCOFRAT E))
        ((EQ (CAAR E) 'BIGFLOAT) (FP2FLO E))