types: added native function type

2017-05-22 18:23:06 -04:00
parent a357895321
commit 139225dd14
1 changed files with 1 additions and 0 deletions
--- a/src/BC/Types.hs
+++ b/src/BC/Types.hs
@@ -10,6 +10,7 @@ data Value = BNum Number
           | BWhile [Value] [[Value]]
           | BDef Value [Value]
           | BFun String [String] [[Value]]
+           | BNative ([Value] -> Value)
           | BCall Value [[Value]]
           | BBraced [Value]
           | BErr String