From e96facabd92d3eb61a4f97dfc3436a34dae4812d Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Mon, 4 Jan 2021 17:43:58 +0300
Subject: Example improved.

---
 examples/generated.csx | 30 +++++++++++++++++++++---------
 src/csx.c              |  3 +++
 2 files changed, 24 insertions(+), 9 deletions(-)

diff --git a/examples/generated.csx b/examples/generated.csx
index 8710bd6..4c405c4 100644
--- a/examples/generated.csx
+++ b/examples/generated.csx
@@ -12,17 +12,29 @@
 [set map [fn [f l] [if [no l] []
   [pair [f [head l]] [map f [tail l]]]
 ]]]
-[map [fn [n] [outint n] [out 10]]
-  [quote [99 37 73 42]]
-]
 [set id [fn args args]]
-[outint [[id 42 13 31] 2]]
-[out 10]
-[out ["Hello!" 1]]
-[out 10]
 [set outstr [fn [str] [if str
   [do [out [head str]] [outstr [tail str]]]
   []
 ]]]
-[outstr "Hello, World!"]
-[out 10]
+[set newline [fn [] [out 10]]]
+[set instr [fn []
+  [set c [in]]
+  [if [same c 10]
+    []
+    [pair c [instr]]
+  ]
+]]
+
+[outstr "-= loaded =-"]
+[newline]
+[outstr "Hello, I am Conrad S. Xylander.  What is your name?"]
+[newline]
+[outstr "> "]
+[set name [instr]]
+[outstr "Nice to meet you, "]
+[outstr name]
+[outstr "."]
+[newline]
+[outstr "I have to go.  Goodbye!"]
+[newline]
diff --git a/src/csx.c b/src/csx.c
index bacf0f7..c265631 100644
--- a/src/csx.c
+++ b/src/csx.c
@@ -97,6 +97,7 @@ int *csx_int(int num)
     }
     int *res = new(type_int, sizeof(int));
     *res = num;
+    ints = new_pair(res, ints);
     return res;
 }
 
@@ -441,6 +442,8 @@ static void new_context()
 static void init()
 {
     initiated = 1;
+    setbuf(stdin, 0);
+    setbuf(stdout, 0);
     null = new(type_null, 0);
     names = null;
     ints = null;
-- 
cgit v1.2.3