suzanne.soy/gui
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
parent 4a7b838c81
commit a9904359e9
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/text.ss
View File

@ -2822,7 +2822,8 @@ designates the character that triggers autocompletion
[else [else
(raise (make-exn:fail:contract (raise (make-exn:fail:contract
(string->immutable-string (string->immutable-string
(format "parameter ~a: expected ~a, given: ~e" name description v))))])))) (format "parameter ~a: expected ~a, given: ~e" name description v))
(current-continuation-marks)))]))))
(define autocomplete-append-after (define autocomplete-append-after
(make-guarded-parameter 'append-after "string" "" string?)) (make-guarded-parameter 'append-after "string" "" string?))

2
collects/macro-debugger/util/notify.ss
View File

@ -20,7 +20,7 @@
(define-for-syntax (join . args) (define-for-syntax (join . args)
(define (->string x) (define (->string x)
(cond [(string? x) x] (cond [(string? x) x]
[(symbol? x) (symbol->string)] [(symbol? x) (symbol->string x)]
[(identifier? x) (symbol->string (syntax-e x))] [(identifier? x) (symbol->string (syntax-e x))]
[else (error '->string)])) [else (error '->string)]))
(string->symbol (apply string-append (map ->string args)))) (string->symbol (apply string-append (map ->string args))))

4
collects/mred/private/snipfile.ss
View File

@ -39,8 +39,8 @@
(if (or (ok-lib-path? m) (if (or (ok-lib-path? m)
(and (list? m) (and (list? m)
(= (length m) 2) (= (length m) 2)
(ok-lib-path? (car m) (ok-lib-path? (car m))
(ok-lib-path? (cadr m))))) (ok-lib-path? (cadr m))))
(let ([m (if (ok-lib-path? m) (let ([m (if (ok-lib-path? m)
m m
(car m))]) (car m))])