SCM Repository
Diff of /sml/trunk/src/cm/compile/recomp.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 382, Sun Jul 11 03:12:07 1999 UTC | revision 383, Tue Jul 20 06:05:56 1999 UTC | |
|---|---|---|
| # | Line 267 | Line 267 |
| 267 | SOME (memo2envdelta memo) | SOME (memo2envdelta memo) |
| 268 | end handle BF.Compile _ => NONE | end handle BF.Compile _ => NONE |
| 269 | | e => let | | e => let |
| 270 | fun ppb pps = | fun ppb pps = let |
| 271 | fun loop [] = () | |
| 272 | | loop (h :: t) = | |
| 273 | (PP.add_newline pps; | (PP.add_newline pps; |
| 274 | PP.add_string pps | PP.add_string pps h; |
| 275 | (General.exnMessage e)) | loop t) |
| 276 | in | |
| 277 | loop (General.exnMessage e :: | |
| 278 | SMLofNJ.exnHistory e) | |
| 279 | end | |
| 280 | in | in |
| 281 | SmlInfo.error gp i EM.COMPLAIN | SmlInfo.error gp i EM.COMPLAIN |
| 282 | ("exception raised while compiling " | ("exception raised while compiling " |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
