diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | parser.l | 4 |
2 files changed, 7 insertions, 2 deletions
@@ -1,5 +1,10 @@ 2014-02-26 Kaz Kylheku <kaz@kylheku.com> + * parser.l (regex_parse, lisp_parse): Better formatting + for the context string that serves in place of a filename. + +2014-02-26 Kaz Kylheku <kaz@kylheku.com> + * eval.c (expand_place): Unnecessary, buggy function removed. It was handling silly special cases with the net effect of being nearly equivalent to just expand, while failing to expand places @@ -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)); |