suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Lots of "~e" to "~.s" changes.

Browse Source 
original commit: 606b7f60dc
This commit is contained in:
Eli Barzilay 2010-08-25 16:10:55 -04:00
parent 03593e433b
commit 9bebb5a98d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/zo-parse.rkt
View File

@ -530,7 +530,7 @@
(match v (match v
[`#((,datum . ,wraps) ,cert-marks) (values cert-marks datum wraps)] [`#((,datum . ,wraps) ,cert-marks) (values cert-marks datum wraps)]
[`(,datum . ,wraps) (values #f datum wraps)] [`(,datum . ,wraps) (values #f datum wraps)]
[else (error 'decode-wraps "bad datum+wrap: ~e" v)])]) [else (error 'decode-wraps "bad datum+wrap: ~.s" v)])])
(let* ([wraps (decode-wraps cp encoded-wraps)] (let* ([wraps (decode-wraps cp encoded-wraps)]
[marks (decode-marks cp cert-marks)] [marks (decode-marks cp cert-marks)]
[add-wrap (lambda (v) (make-wrapped v wraps marks))]) [add-wrap (lambda (v) (make-wrapped v wraps marks))])