Megatest

Diff
Login

Differences From Artifact [b07e8c5369]:

To Artifact [f4c84442dd]:


3778
3779
3780
3781
3782
3783
3784

3785
3786





3787
3788
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)))
       (with-input-from-string instr
	 read)
       (begin
	 (debug:print-info 0 *default-log-port* "Odd, instr is not a string: "instr)
	 instr))))

)