1.1 --- a/templates/progops.c Tue Nov 01 18:23:42 2016 +0100
1.2 +++ b/templates/progops.c Tue Nov 01 18:25:47 2016 +0100
1.3 @@ -7,6 +7,7 @@
1.4 #include "progconsts.h"
1.5 #include "progops.h"
1.6 #include "progtypes.h"
1.7 +#include "main.h"
1.8 #include <stdio.h>
1.9
1.10 /* Generic instantiation operations, defining common members. */
1.11 @@ -143,5 +144,9 @@
1.12
1.13 int __BOOL(__attr attr)
1.14 {
1.15 - return attr.value == __builtins___boolean_True.value;
1.16 + __attr args[2] = {{0, 0}, attr};
1.17 +
1.18 + /* Invoke the bool function with the object and test against True. */
1.19 +
1.20 + return __fn___builtins___boolean_bool(args).value == __builtins___boolean_True.value;
1.21 }