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
(when (> len2 (bytes-length out-bytes))
(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-end len2)
used))]

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

@ -154,7 +154,7 @@
[(pair? strs)
(apply build-path (string->path/win (car 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)])
(if (url-path-absolute? url)
(apply build-path (bytes->path #"/" 'unix) elems)

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

@ -54,21 +54,21 @@
(make-hash)
(if (eq? a 'weak)
(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)
(eq? b 'weak))
(and (eq? a 'weak)
(eq? b 'equal)))
(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
(case-lambda
[(l) (make-immutable-hasheq l)]
[(l a) (if (eq? a 'equal)
(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?
(case-lambda
[(v) (hash? v)]
@ -78,7 +78,7 @@
(if (eq? a 'weak)
(and (hash? 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)
(eq? b 'weak))
(and (eq? a 'weak)
@ -86,4 +86,4 @@
(and (hash? v)
(not (hash-eq? v))
(hash-weak? v))
(raise-mismatch-error "hash-table?: bad arguments: " (list a b)))])))
(raise-mismatch-error 'hash-table? "bad arguments: " (list a b)))])))