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

begin -> do

Browse Source 
Shorter and doesn't imply existence of `end'
This commit is contained in:
alex-eg
2026-09-14 15:48:17 +03:00
parent af6e778185
commit d609a0c591
7 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
fmt-c-writer.scm
View File

@@ -85,7 +85,7 @@ surrounding c-block supplies them)."
(case atom
((fn) '%fun)
((prototype) '%prototype)
((begin) '%block-begin)
((do) '%block-begin)
((define) '%define)
((pointer) '%pointer)
((array) '%array)
@@ -141,7 +141,7 @@ surrounding c-block supplies them)."
;; Statement positions. These are the only places a #line may go,
;; and each is spliced or wrapped according to what the
;; corresponding fmt-c procedure accepts.
(('begin . stmts) (cons '%block-begin (walk-body stmts)))
(('do . stmts) (cons '%block-begin (walk-body stmts)))
(('if . clauses) (cons 'if (walk-if-clauses clauses)))
(('while test . body)
(cons* 'while (walk-expr test) (walk-body body)))