From 255accfa7d1a0c401f267cd0381b151985fedaba Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 26 Feb 2014 00:44:43 -0800 Subject: * parser.l (regex_parse, lisp_parse): Better formatting for the context string that serves in place of a filename. --- ChangeLog | 5 +++++ parser.l | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 87521bd7..68cf168e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-02-26 Kaz Kylheku + + * parser.l (regex_parse, lisp_parse): Better formatting + for the context string that serves in place of a filename. + 2014-02-26 Kaz Kylheku * eval.c (expand_place): Unnecessary, buggy function removed. diff --git a/parser.l b/parser.l index 0f30365a..ddc2b5d4 100644 --- a/parser.l +++ b/parser.l @@ -895,7 +895,7 @@ val regex_parse(val string, val error_stream) { int gc = gc_state(0); spec_file_str = if3(std_error != std_null, - format(nil, lit("regex: ~s"), string, nao), + format(nil, lit("regex --> ~a"), string, nao), lit("")); yyparse(); yylex_destroy(); @@ -913,7 +913,7 @@ val lisp_parse(val source, val error_stream) or2(source, std_input)); val secret_token_stream = make_string_byte_input_stream(lit("@\x01" "E")); val name = if3(stringp(source), - format(nil, lit("expr: ~s"), source, nao), + format(nil, lit("expr --> ~a"), source, nao), stream_get_prop(input_stream, name_k)); val save_stream = std_error; yyin_stream = make_catenated_stream(list(secret_token_stream, input_stream, nao)); -- cgit v1.2.3