From a9904359e9a283c5816096f9d41fe6f60c67ee22 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 17 Jul 2008 15:20:17 +0000 Subject: [PATCH] v4.0.2.4: logging svn: r10818 original commit: 9af00fcfb4782168ae583a3d66058095815725e3 --- collects/framework/private/text.ss | 3 ++- collects/macro-debugger/util/notify.ss | 2 +- collects/mred/private/snipfile.ss | 4 ++-- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index 3a5bf0dc..9e7d71fc 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -2822,7 +2822,8 @@ designates the character that triggers autocompletion [else (raise (make-exn:fail:contract (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 (make-guarded-parameter 'append-after "string" "" string?)) diff --git a/collects/macro-debugger/util/notify.ss b/collects/macro-debugger/util/notify.ss index c5c6e8c8..316358a8 100644 --- a/collects/macro-debugger/util/notify.ss +++ b/collects/macro-debugger/util/notify.ss @@ -20,7 +20,7 @@ (define-for-syntax (join . args) (define (->string x) (cond [(string? x) x] - [(symbol? x) (symbol->string)] + [(symbol? x) (symbol->string x)] [(identifier? x) (symbol->string (syntax-e x))] [else (error '->string)])) (string->symbol (apply string-append (map ->string args)))) diff --git a/collects/mred/private/snipfile.ss b/collects/mred/private/snipfile.ss index 95399bb9..11379e41 100644 --- a/collects/mred/private/snipfile.ss +++ b/collects/mred/private/snipfile.ss @@ -39,8 +39,8 @@ (if (or (ok-lib-path? m) (and (list? m) (= (length m) 2) - (ok-lib-path? (car m) - (ok-lib-path? (cadr m))))) + (ok-lib-path? (car m)) + (ok-lib-path? (cadr m)))) (let ([m (if (ok-lib-path? m) m (car m))])