diff options
Diffstat (limited to 'lib/csc/macros.csc')
| -rw-r--r-- | lib/csc/macros.csc | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/csc/macros.csc b/lib/csc/macros.csc index d41e9da..fc72f74 100644 --- a/lib/csc/macros.csc +++ b/lib/csc/macros.csc @@ -802,6 +802,16 @@ (_ (raise-syntax-error "unexpected form in builtin-if")))))) + (define builtin-sequence + (make-macro-transformer + (lambda (x) + (syntax-case x + ((_ head tail) + (make-sequence (expand-syntax-object head) + (expand-syntax-object tail))) + (_ (raise-syntax-error "unexpected form in builtin-sequence")))))) + + (define builtins-environment (alist->substitutions (list (cons 'syntax-rules builtin-syntax-rules) @@ -814,7 +824,8 @@ (cons 'define-syntax builtin-define-syntax) (cons 'call-builtin builtin-call-builtin) (cons 'set! builtin-set) - (cons 'builtin-if builtin-if)))) + (cons 'builtin-if builtin-if) + (cons 'builtin-sequence builtin-sequence)))) ; Expands the body of a library, or top level. expand-body can be thought |