From 6abb87069c0e7e63fe79d509e6fb19d267702712 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 9 Feb 2012 22:03:13 -0700 Subject: [PATCH] fix error-message formatting Closes PR 12565 --- collects/tests/racket/module.rktl | 7 +++++++ src/racket/src/module.c | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/collects/tests/racket/module.rktl b/collects/tests/racket/module.rktl index 7da0c33d65..02e09f28ce 100644 --- a/collects/tests/racket/module.rktl +++ b/collects/tests/racket/module.rktl @@ -632,6 +632,13 @@ (provide f) (define (f) (s 1 2))) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Check printing of an error message: + +(err/rt-test (eval '(module bad-module racket/base + (require (for-meta -1 (only-in racket cons) (only-in r5rs cons))))) + (lambda (exn) (regexp-match? #rx"phase -1" (exn-message exn)))) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (report-errs) diff --git a/src/racket/src/module.c b/src/racket/src/module.c index f94b5bce8f..001d99105e 100644 --- a/src/racket/src/module.c +++ b/src/racket/src/module.c @@ -6083,7 +6083,7 @@ static void check_require_name(Scheme_Object *prnt_name, Scheme_Object *name, phase_expl = " for syntax"; else { char buf[32]; - sprintf(buf, " for phase %" PRIxPTR, SCHEME_INT_VAL(phase)); + sprintf(buf, " for phase %" PRIdPTR, SCHEME_INT_VAL(phase)); phase_expl = scheme_strdup(buf); } @@ -8456,7 +8456,7 @@ void compute_provide_arrays(Scheme_Hash_Table *all_provided, Scheme_Hash_Table * if (SCHEME_FALSEP(phase)) { phase_expl = " for-label"; } else { - sprintf(buf, " for phase %" PRIxPTR, SCHEME_INT_VAL(phase)); + sprintf(buf, " for phase %" PRIdPTR, SCHEME_INT_VAL(phase)); phase_expl = scheme_strdup(buf); } } else