commit 6eee4f9b11fe1add476a987afba6556d2481f26a
author swissChili <swisschili@fastmail.com> Tue Apr 20 09:34:30 2021 -0700
committer swissChili <swisschili@fastmail.com> Tue Apr 20 09:34:30 2021 -0700
tree 234bddb08172bfa8ecaacf11856aa084d4348da4
parent 8cfb7c427d567ed8c72dbd329646b8ec63482117

Add readint ()

src/lisp/lisp.h

diff --git a/src/lisp/lisp.h b/src/lisp/lisp.h
index 173ae92..3c2cb3b 100644
--- a/src/lisp/lisp.h
+++ b/src/lisp/lisp.h
@@ -28,7 +28,7 @@
 
 #define CONS_TAG 0b001
 #define VECTOR_TAG 0b010
-#define STRING_TAG 0b100
+#define STRING_TAG 0b011
 #define SYMBOL_TAG 0b101
 #define CLOSURE_TAG 0b110
 
@@ -71,6 +71,7 @@
 bool readsym (struct istream *is, value_t *val);
 bool readstr (struct istream *is, value_t *val);
 bool readlist (struct istream *is, value_t *val);
+bool readint (struct istream *is, value_t *val);
 
 value_t intval (int i);
 value_t strval (char *str);