From c5d837d2cd9a57e453da9eaab0e41e0c185e084e Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Thu, 4 Aug 2022 10:07:13 +0200
Subject: fold & more

---
 bootstrap/test.cff | 73 ++----------------------------------------------------
 1 file changed, 2 insertions(+), 71 deletions(-)

(limited to 'bootstrap/test.cff')

diff --git a/bootstrap/test.cff b/bootstrap/test.cff
index 61fcbf3..1f426b8 100644
--- a/bootstrap/test.cff
+++ b/bootstrap/test.cff
@@ -1,76 +1,7 @@
-
-defmacro MAX(x, y) [ ((x) < (y) ? (y) : (x)) ]
-
-defmacro fmt(fmt, ...args) [ printf(fmt, args) ]
-defmacro add {
-(x) [ (x) ],
-(x, y, ...rest) [ (x) + add(y, rest) ]
-}
-
-defmacro swap(x, y) [
-   (do
-      let $x = &(x);
-      let $y = &(y);
-      let $z = *$x;
-      *$x = *$y;
-      *$y = $z;)
-]
-
-defmacro map {
-(f, x) [ f(x) ],
-(f, x, ...rest) [ f(x) map(f, rest) ]
-}
-
-defmacro printints_s(x) [ "%d  " ## ]
-defmacro printints(...rest) [ printf(map(printints_s, rest) "\n", rest) ]
-
-
-fn fact(x usize) usize {
-   fn f(acc usize, n usize) usize {
-      return n == 0 ? acc : f(acc * n, n - 1);
-   }
-   return f(1, x);
-}
-
-defmacro lambda(tys, body) [
-   (do
-      fn $lam tys body
-      &$lam;)
-]
-
-fn counter() int {
-   static xs int = 0;
-   extern static glob int;
-   glob;
-   return xs++;
-}
-
-extern static glob int = 42;
+typedef v3f [-(-1 * 2) + -(-8/~~5)]f32;
 
 extern fn main (argc int, argv **u8) void {
    extern fn printf(fmt *const u8, ...) int;
-   fmt("%d\n", add(1, 2, 3, 4));
-
-   let x = 0;
-   let y = 7;
-   switch y {
-   case 0, 1 do
-      printf("wow\n");
-   case else
-      printf("p\n");
-   }
-   printf("x: %d; y: %d\n", x, y);
-   swap(x, y);
-   printf("x: %d; y: %d\n", x, y);
-   printf("fact(6) = %zu\n", fact(6));
-
-   printints(1, 7, 8 + 9, x, x / (++y ^ 2));
    
-   let z = (do
-      printf("hi");
-      x + 1;);
-
-   let fo = lambda((x int) void, {});
-
-   return (*fo)(0);
+   return;
 }
-- 
cgit v1.2.3