fusion-lang 0.0.1.alpha1 → 0.0.1.alpha2

data/stdlib/map.fsn

@@ -1,4 +1,6 @@
 (
   {"f": _, "xs": []} => [],
-  {"f": f, "xs": [x, ...rest]} => [x | f, ...({"f": f, "xs": rest} | @map)]
+  {"f": f, "xs": [x, ...rest]} => [x | f, ...({"f": f, "xs": rest} | @map)],
+  {"f": _, "xs": xs} => !{"kind": "type_error", "location": "stdlib map.fsn", "operation": "map", "input": xs | @sanitize, "message": "expected an array"},
+  x => !{"kind": "argument_error", "location": "stdlib map.fsn", "operation": "map", "input": x | @sanitize, "message": "expected {\"f\": _, \"xs\": _}"}
 )

data/stdlib/mapValues.fsn

@@ -0,0 +1,5 @@
+# Apply f to each value of an object, keeping the keys. Input: {"f": fn, "object": obj}.
+(
+  {"f": f, "object": obj ? @Object} => {"f": (k => [k, [obj, k] | @get | f]), "xs": obj | @keys} | @map | @toObject,
+  x => !{"kind": "argument_error", "location": "stdlib mapValues.fsn", "operation": "mapValues", "input": x | @sanitize, "message": "expected {\"f\": _, \"object\": _}"}
+)

data/stdlib/math/square.fsn

@@ -1 +1,4 @@
-(n ? @Integer => [n, n] | @multiply)
+(
+  n ? @Integer => [n, n] | @multiply,
+  x => !{"kind": "type_error", "location": "stdlib square.fsn", "operation": "square", "input": x | @sanitize, "message": "expected an integer"}
+)

data/stdlib/range.fsn

@@ -1,4 +1,5 @@
 (
   0 => [],
-  n ? @Integer => [...([n, 1] | @subtract | @range), [n, 1] | @subtract]
+  n ? (m ? @Integer => [-1, m] | @lessThan, _ => false) => [...([n, 1] | @subtract | @range), [n, 1] | @subtract],
+  x => !{"kind": "type_error", "location": "stdlib range.fsn", "operation": "range", "input": x | @sanitize, "message": "expected a non-negative integer"}
 )

data/stdlib/sanitize.fsn

@@ -0,0 +1,12 @@
+# Render a value safe to embed in an error payload, mirroring the interpreter's
+# lenient serialization (docs/user/reference.md §9.3): a function becomes
+# "<function>" and a non-finite number becomes "<Infinity>" / "<-Infinity>" /
+# "<NaN>". Arrays and objects are sanitized recursively; everything else is
+# returned unchanged.
+(
+  v ? @Function => "<function>",
+  v ? @NonFinite => [["<", v | @toString] | @concat, ">"] | @concat,
+  v ? @Array => {"f": @sanitize, "xs": v} | @map,
+  v ? @Object => {"f": @sanitize, "object": v} | @mapValues,
+  v => v
+)

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: fusion-lang
 version: !ruby/object:Gem::Version
-  version: 0.0.1.alpha1
+  version: 0.0.1.alpha2
 platform: ruby
 authors:
 - Klaus Weidinger
@@ -28,16 +28,41 @@ files:
 - docs/user/reference.md
 - docs/user/tutorial.md
 - examples/double.fsn
+- examples/ends.fsn
 - examples/factorial.fsn
 - examples/first.fsn
 - examples/fizzbuzz.fsn
 - examples/palindrome.fsn
 - exe/fusion
 - lib/fusion.rb
+- lib/fusion/ast.rb
+- lib/fusion/atom.rb
+- lib/fusion/cli.rb
+- lib/fusion/cli/decoder.rb
+- lib/fusion/cli/encoder.rb
+- lib/fusion/cli/options.rb
+- lib/fusion/cli/parser.rb
+- lib/fusion/cli/repl.rb
+- lib/fusion/cli/serializer.rb
+- lib/fusion/interpreter.rb
+- lib/fusion/interpreter/builtins.rb
+- lib/fusion/interpreter/env.rb
+- lib/fusion/interpreter/error_val.rb
+- lib/fusion/interpreter/file_thunk.rb
+- lib/fusion/interpreter/func.rb
+- lib/fusion/interpreter/native_func.rb
+- lib/fusion/lexer.rb
+- lib/fusion/null.rb
+- lib/fusion/parser.rb
+- lib/fusion/token.rb
+- lib/fusion/typed_data.rb
 - lib/fusion/version.rb
+- lib/fusion/wire_pair.rb
 - stdlib/map.fsn
+- stdlib/mapValues.fsn
 - stdlib/math/square.fsn
 - stdlib/range.fsn
+- stdlib/sanitize.fsn
 homepage: https://github.com/dunkelziffer/fusion
 licenses:
 - MIT