Megatest

Diff
Login

Differences From Artifact [5348abd36a]:

To Artifact [47e2c99089]:


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
     (lambda ()(read)))))

)







|


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)))

)