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

better error messages against invalid use of auxiliary syntax

This commit is contained in:
Sunrin SHIMURA (keen) 2015-01-19 06:02:39 +00:00
parent 5e3bd1e037
commit 6dbf52812d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extlib/benz/boot.c
View File

@ -52,7 +52,7 @@ my $src = <<'EOL';
(list (r 'define-syntax) (cadr expr) (list (r 'define-syntax) (cadr expr)
(list (r 'lambda) '_ (list (r 'lambda) '_
(list (r 'lambda) '_ (list (r 'lambda) '_
(list (r 'error) "invalid use of auxiliary syntax"))))))) (list (r 'error) (list (r 'string-append) "invalid use of auxiliary syntax: '" (symbol->string (cadr expr)) "'"))))))))
(define-auxiliary-syntax else) (define-auxiliary-syntax else)
(define-auxiliary-syntax =>) (define-auxiliary-syntax =>)
@ -452,7 +452,7 @@ const char pic_boot[] =
" (list (r 'define-syntax) (cadr expr)\n" " (list (r 'define-syntax) (cadr expr)\n"
" (list (r 'lambda) '_\n" " (list (r 'lambda) '_\n"
" (list (r 'lambda) '_\n" " (list (r 'lambda) '_\n"
" (list (r 'error) \"invalid use of auxiliary syntax\")))))))\n" " (list (r 'error) (list (r 'string-append) \"invalid use of auxiliary syntax: '\" (symbol->string (cadr expr)) \"'\"))))))))\n"
"\n" "\n"
" (define-auxiliary-syntax else)\n" " (define-auxiliary-syntax else)\n"
" (define-auxiliary-syntax =>)\n" " (define-auxiliary-syntax =>)\n"

2
piclib/picrin/syntax-rules.scm
View File

@ -8,7 +8,7 @@
(list (r 'define-syntax) (cadr expr) (list (r 'define-syntax) (cadr expr)
(list (r 'lambda) '_ (list (r 'lambda) '_
(list (r 'lambda) '_ (list (r 'lambda) '_
(list (r 'error) "invalid use of auxiliary syntax"))))))) (list (r 'error) (list (r 'string-append) "invalid use of auxiliary syntax: '" (symbol->string (cadr expr)) "'"))))))))
(define-auxiliary-syntax _) (define-auxiliary-syntax _)
(define-auxiliary-syntax ...) (define-auxiliary-syntax ...)