Carp/core/Double.carp

(defmodule Double
  (def π 3.1415926536)
  (register + (Fn [Double Double] Double))
  (register - (Fn [Double Double] Double))
  (register * (Fn [Double Double] Double))
  (register / (Fn [Double Double] Double))
  (register toInt (Fn [Double] Int))
  (register fromInt (Fn [Int] Double))
  (register sin (Fn [Double] Double))
  (register cos (Fn [Double] Double))
  (register str (Fn [Double] String))
  )