* Added nucleic benchmark.

src/ikarus.numerics.ss

@@ -120,7 +120,8 @@
           quotient+remainder number->string string->number min max
           abs
           exact->inexact floor ceiling round log fl=? fl<? fl<=? fl>?
-          fl>=? fl+ fl- fl* fl/ flsqrt flmin flzero? flnegative?)
+          fl>=? fl+ fl- fl* fl/ flsqrt flmin flzero? flnegative?
+          sin cos atan sqrt)
   (import 
     (ikarus system $fx)
     (ikarus system $flonums)
@@ -135,7 +136,8 @@
             exact->inexact floor ceiling round log
             exact-integer-sqrt min max abs
             fl=? fl<? fl<=? fl>? fl>=? fl+ fl- fl* fl/ flsqrt flmin
-            flzero? flnegative?))
+            flzero? flnegative?
+            sin cos atan sqrt))
 
   (define (fixnum->flonum x)
     (foreign-call "ikrt_fixnum_to_flonum" x))

src/makefile.ss

@@ -396,6 +396,10 @@
     [add1                    i]
     [sub1                    i]
     [expt                    i r]
+    [sin                     i r]
+    [cos                     i r]
+    [sqrt                    i r]
+    [atan                    i r]
     [number?                 i r]
     [bignum?                 i]
     [ratnum?                 i]