Add "GUI not supported" primitives to Faustine.

[Faustine.git] / interpreter / types.ml

diff --git a/interpreter/types.ml b/interpreter/types.ml
index dd82e7c..7024eeb 100644 (file)
--- a/interpreter/types.ml
+++ b/interpreter/types.ml
@@ -120,6 +120,17 @@ type symbol = Add
            | Select3
            | Rdtable
            | Rwtable
+           | Button
+           | Checkbox
+           | Vslider
+           | Hslider
+           | Vgroup
+           | Hgroup
+           | Tgroup
+           | Hbargraph
+           | Vbargraph
+           | Nentry
+           | Attach
 
 type faust_exp =
          Const of basic