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

v4.0.2.4: logging

Browse Source 
svn: r10818

original commit: 9af00fcfb4782168ae583a3d66058095815725e3
This commit is contained in:
Matthew Flatt 2008-07-17 15:20:17 +00:00
commit 63806763b5
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/port.ss
View File

@ -1627,7 +1627,7 @@
(begin (begin
(when (> len2 (bytes-length out-bytes)) (when (> len2 (bytes-length out-bytes))
(raise-insane-decoding-length)) (raise-insane-decoding-length))
(bytes-copy out-bytes 0 s2 start2 (+ start2 len2)) (bytes-copy! out-bytes 0 s2 start2 (+ start2 len2))
(set! out-start 0) (set! out-start 0)
(set! out-end len2) (set! out-end len2)
used))] used))]

2
collects/net/url-unit.ss
View File

@ -154,7 +154,7 @@
[(pair? strs) [(pair? strs)
(apply build-path (string->path/win (car strs)) (apply build-path (string->path/win (car strs))
(map string->path-element/same (cdr strs)))] (map string->path-element/same (cdr strs)))]
[else (build-path)]) ; error [else (error 'file://->path "no path elements: ~e" url)])
(let ([elems (map string->path-element/same strs)]) (let ([elems (map string->path-element/same strs)])
(if (url-path-absolute? url) (if (url-path-absolute? url)
(apply build-path (bytes->path #"/" 'unix) elems) (apply build-path (bytes->path #"/" 'unix) elems)

10
collects/scheme/private/old-procs.ss
View File

@ -54,20 +54,20 @@
(make-hash) (make-hash)
(if (eq? a 'weak) (if (eq? a 'weak)
(make-weak-hasheq) (make-weak-hasheq)
(raise-mismatch-error "make-hash-table: bad argument: " a)))] (raise-mismatch-error 'make-hash-table "bad argument: " a)))]
[(a b) (if (or (and (eq? a 'equal) [(a b) (if (or (and (eq? a 'equal)
(eq? b 'weak)) (eq? b 'weak))
(and (eq? a 'weak) (and (eq? a 'weak)
(eq? b 'equal))) (eq? b 'equal)))
(make-weak-hash) (make-weak-hash)
(raise-mismatch-error "make-hash-table: bad arguments: " (list a b)))])) (raise-mismatch-error 'make-hash-table "bad arguments: " (list a b)))]))
(define make-immutable-hash-table (define make-immutable-hash-table
(case-lambda (case-lambda
[(l) (make-immutable-hasheq l)] [(l) (make-immutable-hasheq l)]
[(l a) (if (eq? a 'equal) [(l a) (if (eq? a 'equal)
(make-immutable-hash l) (make-immutable-hash l)
(raise-mismatch-error "make-immutable-hash-table: bad argument: " a))])) (raise-mismatch-error 'make-immutable-hash-table "bad argument: " a))]))
(define hash-table? (define hash-table?
(case-lambda (case-lambda
@ -78,7 +78,7 @@
(if (eq? a 'weak) (if (eq? a 'weak)
(and (hash? v) (and (hash? v)
(hash-weak? v)) (hash-weak? v))
(raise-mismatch-error "hash-table?: bad argument: " a)))] (raise-mismatch-error 'hash-table? "bad argument: " a)))]
[(v a b) (if (or (and (eq? a 'equal) [(v a b) (if (or (and (eq? a 'equal)
(eq? b 'weak)) (eq? b 'weak))
(and (eq? a 'weak) (and (eq? a 'weak)
@ -86,4 +86,4 @@
(and (hash? v) (and (hash? v)
(not (hash-eq? v)) (not (hash-eq? v))
(hash-weak? v)) (hash-weak? v))
(raise-mismatch-error "hash-table?: bad arguments: " (list a b)))]))) (raise-mismatch-error 'hash-table? "bad arguments: " (list a b)))])))