Fixed bug 172279: Incorrect syntax use causing an internal bug

This commit is contained in:
Abdulaziz Ghuloum 2007-11-27 06:11:30 -05:00
parent 5cf465f2c6
commit 6b74c8fb7d
4 changed files with 9 additions and 5 deletions

Binary file not shown.

View File

@ -1073,8 +1073,10 @@ its mode changes to \texttt{ikarus-mode}.
ikarus-mode ikarus-mode
\end{verbatim} \end{verbatim}
\defun{set-port-mode!}{procedure} \idxlabeldefun{set-port-mode"!}{set-port-mode"!}{set-port-mode-bang}{set-port-mode!}{procedure}
\texttt{(set-port-mode! ip mode)} %\defun{set-port-mode!}{procedure}
%\index{set-port-mode@\texttt{set-port-mode"!}}
\texttt{(set-port-mode!\ ip mode)}
The \texttt{set-port-mode!} procedure modifies the lexical syntax The \texttt{set-port-mode!} procedure modifies the lexical syntax
accepted by subsequent calls to \texttt{read} on the input port. accepted by subsequent calls to \texttt{read} on the input port.

View File

@ -1 +1 @@
1132 1135

View File

@ -3386,12 +3386,14 @@
(error 'syntax-error "invalid argument" args)) (error 'syntax-error "invalid argument" args))
(raise (raise
(condition (condition
(make-who-condition 'expander) ;(make-who-condition 'expander)
(make-message-condition (make-message-condition
(if (null? args) (if (null? args)
"invalid syntax" "invalid syntax"
(apply string-append args))) (apply string-append args)))
(stx->datum x))))) (make-syntax-violation
(stx->datum x)
'none)))))
(define identifier? (lambda (x) (id? x))) (define identifier? (lambda (x) (id? x)))