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

* Added error-handling-mode macro.

This commit is contained in:
Abdulaziz Ghuloum 2007-10-11 21:51:15 -04:00
parent 12f3041f03
commit 0c754c1939
4 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

3
src/makefile.ss
View File

@ -132,6 +132,7 @@
[trace-lambda (macro . trace-lambda)] [trace-lambda (macro . trace-lambda)]
[trace-define (macro . trace-define)] [trace-define (macro . trace-define)]
[eol-style (macro . eol-style)] [eol-style (macro . eol-style)]
[error-handling-mode (macro . error-handling-mode)]
)) ))
(define library-legend (define library-legend
@ -965,7 +966,7 @@
[scheme-report-environment r5 se] [scheme-report-environment r5 se]
[close-port r ip] [close-port r ip]
[eol-style i r ip] [eol-style i r ip]
[error-handling-mode r ip] [error-handling-mode i r ip]
[file-options r ip] [file-options r ip]
[flush-output-port i r ip] [flush-output-port i r ip]
[get-bytevector-all r ip] [get-bytevector-all r ip]

3
src/psyntax.expander.ss
View File

@ -1914,6 +1914,9 @@
((eol-style) ((eol-style)
(lambda (x) (lambda (x)
(symbol-macro x '(none lf cr crlf nel crnel ls)))) (symbol-macro x '(none lf cr crlf nel crnel ls))))
((error-handling-mode)
(lambda (x)
(symbol-macro x '(ignore raise replace))))
((... => _ else unquote unquote-splicing ((... => _ else unquote unquote-splicing
unsyntax unsyntax-splicing) unsyntax unsyntax-splicing)
incorrect-usage-macro) incorrect-usage-macro)

2
src/todo-r6rs.ss
View File

@ -545,7 +545,7 @@
;;; ;;;
[close-port S ip] [close-port S ip]
[eol-style C ip] [eol-style C ip]
[error-handling-mode S ip] [error-handling-mode C ip]
[file-options S ip] [file-options S ip]
[flush-output-port S ip] [flush-output-port S ip]
[get-bytevector-all S ip] [get-bytevector-all S ip]