diff --git a/anselme/stdlib/number.lua b/anselme/stdlib/number.lua index fd99ca9..a0b2084 100644 --- a/anselme/stdlib/number.lua +++ b/anselme/stdlib/number.lua @@ -76,4 +76,22 @@ return { end end }, + + { "sqrt", "(x::is number)", function(state, x) return Number:new(math.sqrt(x.number)) end }, + + { "abs", "(x::is number)", function(state, x) return Number:new(math.abs(x.number)) end }, + + { "exp", "(x::is number)", function(state, x) return Number:new(math.exp(x.number)) end }, + { "log", "(x::is number)", function(state, x) return Number:new(math.log(x.number)) end }, + { "log", "(x::is number, base::is number)", function(state, x, base) return Number:new(math.log(x.number, base.number)) end }, + + { "deg", "(x::is number)", function(state, x) return Number:new(math.deg(x.number)) end }, + { "rad", "(x::is number)", function(state, x) return Number:new(math.rad(x.number)) end }, + { "cos", "(x::is number)", function(state, x) return Number:new(math.cos(x.number)) end }, + { "sin", "(x::is number)", function(state, x) return Number:new(math.sin(x.number)) end }, + { "tan", "(x::is number)", function(state, x) return Number:new(math.tan(x.number)) end }, + { "acos", "(x::is number)", function(state, x) return Number:new(math.acos(x.number)) end }, + { "asin", "(x::is number)", function(state, x) return Number:new(math.asin(x.number)) end }, + { "atan", "(x::is number)", function(state, x) return Number:new(math.atan(x.number)) end }, + { "atan", "(y::is number, x::is number)", function(state, y, x) return Number:new((math.atan2 or math.atan)(y.number, x.number)) end }, } diff --git a/anselme/stdlib/script.lua b/anselme/stdlib/script.lua index c0c4219..51c671d 100644 --- a/anselme/stdlib/script.lua +++ b/anselme/stdlib/script.lua @@ -1,5 +1,5 @@ return [[ -:@script = $(name, fn=attached block!) +:@ script = $(name, fn=attached block!) fn.:¤t checkpoint => "{name}.checkpoint"!persist(false) fn.:&reached => "{name}.reached"!persist(*{}) fn.:&run => "{name}.run"!persist(0) @@ -46,10 +46,10 @@ return [[ :@$_._(s::is script, k::is symbol) = val (s!value).fn.(k) = val -:@$from(s::is script, a::is anchor) +:@$ from(s::is script, a::is anchor) s.current checkpoint = a return(s!) -:@$from(s::is script) +:@$ from(s::is script) s.current checkpoint = () return(s!) diff --git a/anselme/stdlib/symbol.lua b/anselme/stdlib/symbol.lua index defef4c..4eaa849 100644 --- a/anselme/stdlib/symbol.lua +++ b/anselme/stdlib/symbol.lua @@ -1,5 +1,4 @@ return { - { "to string", "(symbol::is symbol)", function(state, sym)