From 4cf7c8bacfc836cff5278317cb32dc029cb87273 Mon Sep 17 00:00:00 2001
From: Kimplul <kimi.h.kuparinen@gmail.com>
Date: Sun, 20 Oct 2024 22:47:03 +0300
Subject: play around with guile as a backend

+ I have officially devolved my language into an alternative syntax for
  Scheme. Oh well.
---
 examples/guile.lyn | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 examples/guile.lyn

(limited to 'examples/guile.lyn')

diff --git a/examples/guile.lyn b/examples/guile.lyn
new file mode 100644
index 0000000..9d7f445
--- /dev/null
+++ b/examples/guile.lyn
@@ -0,0 +1,18 @@
+define-syntax-rule (for init condition post body) {
+	expand init
+	do () ((not (expand condition))) {
+		expand body
+		expand post
+	}
+}
+
+define (sum n) {
+	define s 0
+	for (define i 0) (< i n) (set! i (1+ i)) {
+		set! s (+ s i)
+	}
+	get s
+}
+
+display (sum 1000000)
+newline
-- 
cgit v1.2.3