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 to-int (Fn [Double] Int))
  (register from-int (Fn [Int] Double))
  (register sin (Fn [Double] Double))
  (register cos (Fn [Double] Double))
  (register str (Fn [Double] String))
  (register copy (Fn [(Ref Double)] Double))
  )