remove the restriction that the first argument to 'apply' must be a f…

…unction.
kanaka · Aug 8, 2024 · e8f6921 · e8f6921
1 parent e77cd06
commit e8f6921
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/impls/vbs/core.vbs b/impls/vbs/core.vbs
@@ -487,10 +487,10 @@ Function MApply(objArgs, objEnv)
 	Dim objFn
 	Set objFn = objArgs.Item(1)
 	CheckType objFn, TYPES.PROCEDURE
-	If objFn.IsSpecial Or objFn.IsMacro Then
-		Err.Raise vbObjectError, _
-			"MApply", "Need a function."
-	End If
+	' If objFn.IsSpecial Or objFn.IsMacro Then
+	' 	Err.Raise vbObjectError, _
+	' 		"MApply", "Need a function."
+	' End If
 
 	Dim objAST
 	Set objAST = NewMalList(Array(objFn))