From 88cf3dda2e9586a213e0cabcb811d08ba58c8575 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 24 Jul 2006 12:59:01 +0000 Subject: [PATCH] fix exn message svn: r3790 --- src/mzscheme/src/eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c index 7e43a41e99..ec42eb9335 100644 --- a/src/mzscheme/src/eval.c +++ b/src/mzscheme/src/eval.c @@ -6451,7 +6451,7 @@ do_local_expand(const char *name, int for_stx, int catch_lifts, int argc, Scheme i = SCHEME_CAR(l); if (!SCHEME_STX_SYMBOLP(i)) { - scheme_wrong_type(name, "list of identifier syntax", 2, argc, argv); + scheme_wrong_type(name, "#f or list of identifier syntax", 2, argc, argv); return NULL; } @@ -6459,7 +6459,7 @@ do_local_expand(const char *name, int for_stx, int catch_lifts, int argc, Scheme scheme_set_local_syntax(pos++, i, stop_expander, env); } if (!SCHEME_NULLP(l)) { - scheme_wrong_type(name, "list of identifier syntax", 2, argc, argv); + scheme_wrong_type(name, "#f or list of identifier syntax", 2, argc, argv); return NULL; } }