Allow &meta and :Void to co-exist

src/kiss/FieldForms.hx

@@ -66,15 +66,26 @@ class FieldForms {
 
     static function fieldName(formName:String, nameExp:ReaderExp) {
         return switch (nameExp.def) {
-            case Symbol(name) | TypedExp(_, {pos: _, def: Symbol(name)}):
+            case Symbol(name):
                 name;
-            case MetaExp(_, nameExp):
+            case MetaExp(_, nameExp) | TypedExp(_, nameExp):
                 fieldName(formName, nameExp);
             default:
-                throw CompileError.fromExp(nameExp, 'The first argument to $formName should be a variable name or typed variable name.');
+                throw CompileError.fromExp(nameExp, 'The first argument to $formName should be a variable name, :Typed variable name, and/or &meta variable name.');
         };
     }
 
+    static function isVoid(nameExp:ReaderExp) {
+        return switch (nameExp.def) {
+            case MetaExp(_, nameExp):
+                isVoid(nameExp);
+            case TypedExp("Void", _) | Symbol("new"):
+                true;
+            default:
+                false;
+        }
+    }
+
     static function varOrProperty(formName:String, wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState):Field {
         wholeExp.checkNumArgs(2, 3, '($formName [optional: &mut] [optional :type] [variable] [value])');
 
@@ -98,12 +109,7 @@ class FieldForms {
 
         var name = fieldName(formName, args[0]);
         var access = fieldAccess(formName, name, args[0]);
-        var returnsValue = switch (args[0].def) {
+        var returnsValue = !isVoid(args[0]);
-            case TypedExp("Void", _):
-                false;
-            default:
-                true;
-        };
 
         return {
             name: name,

src/kiss/Helpers.hx

@@ -71,7 +71,7 @@ class Helpers {
                 case Symbol(name) | TypedExp(_, {pos: _, def: Symbol(name)}):
                     name;
                 default:
-                    throw CompileError.fromExp(name, 'function name should be a symbol or typed symbol');
+                    throw CompileError.fromExp(name, 'function name should be a symbol or :Typed symbol');
             };
         } else {
             "";