Add a begin statement for the hello demo for XS:Lisp

BrickBot · Jul 23, 2024 · 12801ff · 12801ff
1 parent 2950938
commit 12801ff
Showing 1 changed file with 14 additions and 12 deletions.
diff --git a/demo/xs-lisp/hello-lisp.lsp → demo/xs-lisp/hello-xsLisp.lsp b/demo/xs-lisp/hello-lisp.lsp → demo/xs-lisp/hello-xsLisp.lsp
@@ -12,17 +12,19 @@
 
 ;; hello world
 
-(putc :char_H 4)
-(putc :char_E 3)
-(putc :char_Parallel 2)
-(putc :char_O 1)
-(sleep 1)
+(begin
+ (putc :char_H 4)
+ (putc :char_E 3)
+ (putc :char_Parallel 2)
+ (putc :char_O 1)
+ (sleep 1)
 
-(putc :char_L 4)
-(putc :char_E 3)
-(putc :char_G 2)
-(putc :char_O 1)
-(sleep 1)
+ (putc :char_L 4)
+ (putc :char_E 3)
+ (putc :char_G 2)
+ (putc :char_O 1)
+ (sleep 1)
 
-(cls)
-(sleep 1)
+ (cls)
+ (sleep 1)
+)