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

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

Browse Source 
original commit: 606b7f60dc597a6870efc11364e1dd3e1a8b4a1b
This commit is contained in:
Eli Barzilay 2010-08-25 16:10:55 -04:00
parent 8258184a9a
commit bfeb87cacd
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/kw.rkt
View File

@ -331,7 +331,7 @@
#`((if (and in-seen? in-keys?) #`((if (and in-seen? in-keys?)
#,(if allow-duplicate-keys? #,(if allow-duplicate-keys?
#`seen-keys #`seen-keys
#`(error* 'name "duplicate keyword: ~e" #`(error* 'name "duplicate keyword: ~.s"
(car body*))) (car body*)))
(cons (car body*) seen-keys))) (cons (car body*) seen-keys)))
'()))]) '()))])
@ -343,12 +343,12 @@
nl nl
#`(if in-keys? #`(if in-keys?
#,nl #,nl
(error* 'name "unknown keyword: ~e" (error* 'name "unknown keyword: ~.s"
(car body*)))))] (car body*)))))]
[(not allow-other-keys?) [(not allow-other-keys?)
#`(if (memq (car body*) 'keywords) #`(if (memq (car body*) 'keywords)
#,nl #,nl
(error* 'name "unknown keyword: ~e" (error* 'name "unknown keyword: ~.s"
(car body*)))] (car body*)))]
[else nl]))] [else nl]))]
[expr [expr
@ -381,7 +381,7 @@
#'next-loop #'next-loop
#'(if (pair? (cdr body*)) #'(if (pair? (cdr body*))
next-loop next-loop
(error* 'name "keyword list not balanced: ~e" rest*))) (error* 'name "keyword list not balanced: ~.s" rest*)))
#,(if allow-body? #,(if allow-body?
(if (and body (not (identifier? body))) (if (and body (not (identifier? body)))
(with-syntax ([name (string->symbol (with-syntax ([name (string->symbol
@ -395,7 +395,7 @@
#'expr) #'expr)
#'(if (null? body*) #'(if (null? body*)
expr expr
(error* 'name "expecting a ~s keyword got: ~e" (error* 'name "expecting a ~s keyword got: ~.s"
'keywords (car body*)))))))))) 'keywords (car body*))))))))))
;; ------------------------------------------------------------------------ ;; ------------------------------------------------------------------------
;; generates the loop that turns flags to #t's ;; generates the loop that turns flags to #t's
@ -456,7 +456,7 @@
(syntax/loc stx (syntax/loc stx
(lambda vars (lambda vars
(if (and (pair? body) (keyword? (car body))) (if (and (pair? body) (keyword? (car body)))
(error* 'name "unknown keyword: ~e" (car body)) (error* 'name "unknown keyword: ~.s" (car body))
expr)))))] expr)))))]
;; no keys => make a case-lambda for optionals ;; no keys => make a case-lambda for optionals
[(and (null? keys) (not (or body allow-other-keys?))) [(and (null? keys) (not (or body allow-other-keys?)))

2
collects/mzlib/runtime-path.rkt
View File

@ -85,7 +85,7 @@
(null? (cdr strs))) (null? (cdr strs)))
(list "mzlib") (list "mzlib")
(append (cddr p) (drop-right strs 1)))))] (append (cddr p) (drop-right strs 1)))))]
[else (error 'runtime-path "unknown form: ~e" p)]))) [else (error 'runtime-path "unknown form: ~.s" p)])))
paths))) paths)))
(define-for-syntax (register-ext-files tag-stx paths) (define-for-syntax (register-ext-files tag-stx paths)

4
collects/mzlib/unit.rkt
View File

@ -843,7 +843,7 @@
(names (apply append nameses)) (names (apply append nameses))
(dup (check-duplicate-identifier names))) (dup (check-duplicate-identifier names)))
(when dup (when dup
(raise-stx-err (format "duplicate binding for ~e" (syntax-e dup)))) (raise-stx-err (format "duplicate binding for ~.s" (syntax-e dup))))
(quasisyntax/loc stx (quasisyntax/loc stx
(provide #,@names)))))) (provide #,@names))))))
@ -1652,7 +1652,7 @@
(tmp-bindings (map (λ (s) (map tmarker (map car (car s)))) out-sigs)) (tmp-bindings (map (λ (s) (map tmarker (map car (car s)))) out-sigs))
(def-table (make-bound-identifier-mapping))) (def-table (make-bound-identifier-mapping)))
(when dup (when dup
(raise-stx-err (format "duplicate binding for ~e" (syntax-e dup)))) (raise-stx-err (format "duplicate binding for ~.s" (syntax-e dup))))
(for-each (for-each
(λ (sig new-xs) (λ (sig new-xs)
(for-each (for-each