Permalink
Browse files

Add to_f(x@Float)

  • Loading branch information...
nineties
nineties committed Mar 18, 2013
1 parent 5dd56ad commit 72d5c4388281fa264a34564e77c990a5eb10fbb2
Showing with 7 additions and 5 deletions.
  1. +2 −2 rowl1/Makefile
  2. +2 −2 rowl1/rowl1-base.rlc
  3. +3 −1 rowl1/rowl1-float.rlc
View
@@ -3,7 +3,7 @@
# Copyright (C) 2010 nineties
#
-# $Id: Makefile 2013-03-16 17:27:33 nineties $
+# $Id: Makefile 2013-03-18 22:11:05 nineties $
TOPDIR = ..
ROWL0DIR = $(TOPDIR)/rowl0
@@ -135,7 +135,7 @@ rowl1-base.rlo : $(RLVMCOMPILER) rowl1-types.rlc rowl1-util.rlo rowl1-node.rlo r
rowl1-symbol.rlo: $(RLVMCOMPILER) rowl1-types.rlc rowl1-util.rlo rowl1-node.rlo rowl1-compile.rlo
rowl1-numeric.rlo : $(RLVMCOMPILER) rowl1-types.rlc rowl1-util.rlo rowl1-node.rlo rowl1-compile.rlo rowl1-error.rlo rowl1-module.rlo rowl1-bigint.rlo rowl1-float.rlo
rowl1-bigint.rlo : $(RLVMCOMPILER) rowl1-types.rlc rowl1-util.rlo rowl1-node.rlo rowl1-compile.rlo
-rowl1-float.rlo : $(RLVMCOMPILER) rowl1-types.rlc rowl1-util.rlo rowl1-node.rlo rowl1-module.rlo rowl1-compile.rlo rowl1-assemble.rlo rowl1-error.rlo
+rowl1-float.rlo : $(RLVMCOMPILER) rowl1-types.rlc rowl1-util.rlo rowl1-node.rlo rowl1-module.rlo rowl1-compile.rlo rowl1-assemble.rlo rowl1-error.rlo rowl1-base.rlo rowl1-numeric.rlo rowl1-bigint.rlo
rowl1-random.rlo : $(RLVMCOMPILER) rowl1-types.rlc rowl1-util.rlo rowl1-node.rlo rowl1-module.rlo rowl1-compile.rlo rowl1-assemble.rlo rowl1-error.rlo rowl1-numeric.rlo rowl1-bigint.rlo rowl1-float.rlo
rowl1-math.rlo : $(RLVMCOMPILER) rowl1-types.rlc rowl1-util.rlo rowl1-node.rlo rowl1-float.rlo rowl1-numeric.rlo rowl1-module.rlo rowl1-compile.rlo rowl1-assemble.rlo rowl1-error.rlo
rowl1-string.rlo : $(RLVMCOMPILER) rowl1-types.rlc rowl1-util.rlo rowl1-node.rlo rowl1-module.rlo rowl1-compile.rlo rowl1-error.rlo
View
@@ -2,7 +2,7 @@
; rowl - 1st generation
; Copyright (C) 2010 nineties
;
-; $Id: rowl1-base.rlc 2013-02-14 03:45:29 nineties $
+; $Id: rowl1-base.rlc 2013-03-18 22:10:24 nineties $
;
(import "rlvm-compile")
@@ -76,7 +76,7 @@
(return v)
))
-(fun _id (obj) (
+(export fun _id (obj) (
(return obj)
))
View
@@ -2,7 +2,7 @@
; rowl - 1st generation
; Copyright (C) 2012 nineties
;
-; $Id: rowl1-float.rlc 2013-03-18 21:25:58 nineties $
+; $Id: rowl1-float.rlc 2013-03-18 22:10:43 nineties $
;
(import "rlvm-compile")
@@ -18,6 +18,7 @@
(import "rowl1-compile")
(import "rowl1-assemble")
(import "rowl1-error")
+(import "rowl1-base")
(import "rowl1-numeric")
(import "rowl1-bigint")
@@ -512,6 +513,7 @@
(add_function1 std (to_sym "hash") floatT float_hash 0)
(add_function1 std (to_sym "to_i") stringT float_to_i 0)
(add_function1 std (to_sym "to_f") intT int_to_f 0)
+ (add_function1 std (to_sym "to_f") floatT _id 0)
(add_function2 std (to_sym "add") floatT floatT float_add 0)
(add_function2 std (to_sym "sub") floatT floatT float_sub 0)

0 comments on commit 72d5c43

Please sign in to comment.