original commit: 6c2f0d499957025d4c7772ef4201cfb4026fd190
This commit is contained in:
Matthew Flatt 2005-05-07 12:57:35 +00:00
parent 662aebd744
commit c7f2b89158

View File

@ -39,7 +39,8 @@
(lambda (constructor format-string . args)
(lambda exn-args
(raise (apply constructor
(apply format format-string args)
(string->immutable-string
(apply format format-string args))
(current-continuation-marks)
exn-args)))))