Commit 55eeb0e9 authored by Juan Jose Garcia Ripoll's avatar Juan Jose Garcia Ripoll
Browse files

Remove debug statement

parent 7ea5a3c6
......@@ -179,8 +179,6 @@
(def-type-propagator sqrt (fname arg)
(multiple-value-bind (output arg)
(ensure-nonrational-type arg)
(print arg)
(print (if (type>= '(REAL 0 *) arg) output 'NUMBER))
(values (list arg)
(if (type>= '(REAL 0 *) arg) output 'NUMBER))))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment