Merge branch 'master' of http://gitea.stocksriddle.one/vaclavt/mlisp

2022-05-16 20:32:30 +02:00
parent e7b2402b63 b1d2a41e0d
commit aec06b5f52
1 changed files with 0 additions and 19 deletions
--- a/debug.lsp
+++ b/debug.lsp
@@ -1,19 +0,0 @@
-(thread-create
- 	(tcp-server 7777 (lambda (str) (list #f (+ "(print \"" (string-upcase str) "\")"))))
-)
-
-(thread-sleep 1)
-
-(thread-create
-	(def code (tcp-client "127.0.0.1" 7777 ("abcd" "xyz")))
-	(for c code
-		(print "executing code:" c)
- 		(eval (parse c))
-	)
-
-	(def code (tcp-client "127.0.0.1" 7777 "abcd"))
-	(print "executing code:" code)
- 	(eval (parse code))
-)
-(threads-join)
-(print "ok")