Skip to content
Snippets Groups Projects
Commit a8934d15 authored by Raymond Toy's avatar Raymond Toy
Browse files

Merge branch 'rtoy-28-fix-recursive-fcn-defn' into 'master'

Fix #28: Recursive function definition

Convert a `double-double` to a double before coercing to a `single-float` or `double-float`.

See merge request !9
parents 5beb6431 6c86016d
No related branches found
No related tags found
No related merge requests found
......@@ -1047,9 +1047,15 @@
(number-dispatch ((x real))
(((foreach single-float double-float
#+long-float long-float
#+double-double double-double-float
fixnum))
(coerce x ',type))
#+double-double
((double-double-float)
;; Convert the double-double to a double before
;; coercing to the appropriate type.
(coerce (+ (double-double-hi x)
(double-double-lo x))
',type))
((bignum)
(bignum-to-float x ',type))
((ratio)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment