3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
|
(define (string->sexpr instr)
(handle-exceptions
exn
(begin
(debug:print 0 *default-log-port* "ERROR: string->sexpr bad input \""instr"\"")
#f)
(with-input-from-string instr
read)))
)
|
>
|
|
>
>
>
|
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
|
(define (string->sexpr instr)
(handle-exceptions
exn
(begin
(debug:print 0 *default-log-port* "ERROR: string->sexpr bad input \""instr"\"")
#f)
(if (string? instr)
(with-input-from-string instr
read)
(begin
(debug:print-info 0 *default-log-port* "Odd, instr is not a string: "instr)
instr))))
)
|