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

remove aux syntax for syntax-rules

This commit is contained in:
Yuichi Nishiwaki 2014-09-09 00:51:49 +09:00
parent 2d80522230
commit c3acc4cb44
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
boot.c
View File

@ -63,8 +63,6 @@ my $src = <<'EOL';
(define-auxiliary-syntax else) (define-auxiliary-syntax else)
(define-auxiliary-syntax =>) (define-auxiliary-syntax =>)
(define-auxiliary-syntax _)
(define-auxiliary-syntax ...)
(define-auxiliary-syntax unquote) (define-auxiliary-syntax unquote)
(define-auxiliary-syntax unquote-splicing) (define-auxiliary-syntax unquote-splicing)
@ -358,7 +356,7 @@ my $src = <<'EOL';
do when unless do when unless
let-syntax letrec-syntax let-syntax letrec-syntax
include include
_ ... syntax-error)) syntax-error))
EOL EOL
@ -436,8 +434,6 @@ const char pic_boot[] =
"\n" "\n"
" (define-auxiliary-syntax else)\n" " (define-auxiliary-syntax else)\n"
" (define-auxiliary-syntax =>)\n" " (define-auxiliary-syntax =>)\n"
" (define-auxiliary-syntax _)\n"
" (define-auxiliary-syntax ...)\n"
" (define-auxiliary-syntax unquote)\n" " (define-auxiliary-syntax unquote)\n"
" (define-auxiliary-syntax unquote-splicing)\n" " (define-auxiliary-syntax unquote-splicing)\n"
"\n" "\n"
@ -731,7 +727,7 @@ const char pic_boot[] =
" do when unless\n" " do when unless\n"
" let-syntax letrec-syntax\n" " let-syntax letrec-syntax\n"
" include\n" " include\n"
" _ ... syntax-error))\n" " syntax-error))\n"
; ;
#if 0 #if 0