pkulev/sex
1
0
Fork 0
forked from alex-eg/sex
Code Pull Requests Activity

add support for begin in Sex

Browse Source 
begin-wrapped blocks are now creating lexical scopes
This commit is contained in:
alex-eg
2025-08-14 14:33:14 +03:00
committed by Pavel Kulyov
parent 8ad5abf055
commit 78977e988e
4 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
example/list.sex
View File

@@ -38,9 +38,10 @@
(pub defmacro (list-for-each list-type list-var elt-type elt-var what-do)
(let ((list-var-2 (cat list-var '-2)))
`((var (pointer ,list-type) ,list-var-2 ,list-var)
(var ,elt-type ,elt-var (-> ,list-var-2 value))
(while (!= (-> ,list-var-2 next) NULL)
,what-do
(= ,list-var-2 (-> ,list-var-2 next))
(= ,elt-var (-> ,list-var-2 value))))))
`((begin
(var (pointer ,list-type) ,list-var-2 ,list-var)
(var ,elt-type ,elt-var (-> ,list-var-2 value))
(while (!= (-> ,list-var-2 next) NULL)
,what-do
(= ,list-var-2 (-> ,list-var-2 next))
(= ,elt-var (-> ,list-var-2 value)))))))