From: Elijah Cohen <eli@eli173.com>
Date: Thu, 3 Oct 2024 22:00:34 +0000 (-0500)
Subject: fixed a whoopsie, added demos file
X-Git-Tag: v-12.13.14~22
X-Git-Url: https://git.eli173.com/?a=commitdiff_plain;h=d982eabb201e837a0e5d4574c36a6de124153962;p=klapaucius

fixed a whoopsie, added demos file

(with only factorial for now)
---

diff --git a/demos.kl b/demos.kl
new file mode 100644
index 0000000..5ac7f56
--- /dev/null
+++ b/demos.kl
@@ -0,0 +1,5 @@
+(def D (B B))
+
+(def g (D S (C (eq 0) 1) (D S * (C B (C - 1)))))
+
+(def fac (Z g))
\ No newline at end of file
diff --git a/src/builtins.c b/src/builtins.c
index c74cbad..2874876 100644
--- a/src/builtins.c
+++ b/src/builtins.c
@@ -182,8 +182,8 @@ char* lookup_builtin(Sexpr* b) {
 		switch(suffix) {
 		case IO_PRINT:
 			return IO_PRINT_STR;
-		case IO_BPA:
-			return IO_BPA_STR;
+		case IO_PB:
+			return IO_PB_STR;
 		default:
 			return "NOT FOUND (IO)";
 		}