idk

2026-05-16 18:59:12 -06:00
parent 9f3628d8ac
commit c58077e65a
6 changed files with 22 additions and 10 deletions
@@ -1,9 +1,7 @@
 #include <stdio.h>
 #include <libguile/scm.h>

-#define BLAH (-1 >> 2 == -1) && (-4 >> 2 == -1) && (-5 >> 2 == -2) && (-8 >> 2 == -2)
-
-#if BLAH
+#if (-1 >> 2 == -1) && (-4 >> 2 == -1) && (-5 >> 2 == -2) && (-8 >> 2 == -2)
 # define SCM_SRS(x, y)  ((x) >> (y))
 #else
 # define SCM_SRS(x, y)                                   \
@@ -1,8 +1,4 @@
 ;;; -*- mode:scheme -*-

-(let ((x0 (prim:cons 4 2))
-      (x3 (prim:write x2))
-      (x2 (prim:* 3 x1))
-      (x1 (prim:cdr x0)))
-  x3)
+(let ((x0 (prim:cons 4 2)) (x3 (prim:write x2)) (x2 (prim:* 3 x1)) (x1 (prim:cdr x0))) x3)