conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add more auxiliary syntaces

This commit is contained in:
Yuichi Nishiwaki 2013-12-09 10:01:09 -08:00
parent ea7dc37dbc
commit 738fd549d8
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
piclib/built-in.scm
View File

@ -173,6 +173,21 @@
(define-macro (unless test . exprs) (define-macro (unless test . exprs)
(list 'if test #f (cons 'begin exprs))) (list 'if test #f (cons 'begin exprs)))
(define-syntax define-auxiliary-syntax
(ir-macro-transformer
(lambda (expr i c)
`(define-syntax ,(cadr expr)
(sc-macro-transformer
(lambda (expr env)
(error "invalid use of auxiliary syntax")))))))
(define-auxiliary-syntax else)
(define-auxiliary-syntax =>)
(define-auxiliary-syntax _)
(define-auxiliary-syntax ...)
(define-auxiliary-syntax unquote)
(define-auxiliary-syntax unquote-splicing)
(define (every pred list) (define (every pred list)
(if (null? list) (if (null? list)
#t #t
@ -601,17 +616,6 @@
(map (lambda (v) (vector-ref v n)) vs)) (map (lambda (v) (vector-ref v n)) vs))
(loop (+ n 1)))))) (loop (+ n 1))))))
(define-syntax define-auxiliary-syntax
(ir-macro-transformer
(lambda (expr i c)
`(define-syntax ,(cadr expr)
(sc-macro-transformer
(lambda (expr env)
(error "invalid use of auxiliary syntax")))))))
(define-auxiliary-syntax unquote)
(define-auxiliary-syntax unquote-splicing)
(define-syntax or (define-syntax or
(ir-macro-transformer (ir-macro-transformer
(lambda (expr inject compare) (lambda (expr inject compare)