Fix bug in reduce Application case

1 files changed, 16 insertions, 9 deletions

diff --git a/samples/sample1.code b/samples/sample1.code
index 6ac6847..a675849 100644
--- a/samples/sample1.code
+++ b/samples/sample1.code
@@ -1,11 +1,18 @@
-# f a b = int.eq? a b;
-# f 1 2
-#     "true"
-#     "false";
+# result =
+#     bool.to-string
+#         (int.eq? 2 2);
 
-compare? a b fn = fn b a;
-compare? 2 2 int.eq?
-    "true"
-    "false";
+# string.eq? result "true";
 
-int.eq? "foobar";
\ No newline at end of file
+# string.eq?
+#     (bool.to-string
+#         (int.eq? 2 2))
+#     "true";
+
+# string.eq?
+#     (bool.to-string
+#         (int.eq? 2 2));
+
+string.eq?
+    (bool.to-string
+        true);