From 67ef9fbf276a3f1490910abfcb2f8387f0944a95 Mon Sep 17 00:00:00 2001
From: Darren Bane <darren.bane@gmail.com>
Date: Tue, 2 Nov 2021 13:22:02 +0000
Subject: Some Shen code

---
 shen/basic.shen | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 shen/basic.shen

(limited to 'shen/basic.shen')

diff --git a/shen/basic.shen b/shen/basic.shen
new file mode 100644
index 0000000..89a998e
--- /dev/null
+++ b/shen/basic.shen
@@ -0,0 +1,18 @@
+(define priority-op
+  { symbol --> number }
+  not -> 1
+  uminus -> 7)
+
+(define pp-binop
+  { symbol --> string }
+  plus -> "+"
+  mult -> "*")
+
+(define parenthesis
+  { string --> string }
+  X -> (@s "(" X ")"))
+
+(define isdigit
+  { string --> boolean }
+  C -> (let CN (string->n C)
+         (and (>= CN (string->n "0")) (<= CN (string->n "9")))))
-- 
cgit 1.4.1-2-gfad0