diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2009-11-15 12:20:27 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2009-11-15 12:20:27 -0800 |
| commit | 24130a3641ae179816ca5672bde12cc04be17813 (patch) | |
| tree | 81916c7061137fbe4209e5aa5827bd8fb1630a4c /txr.c | |
| parent | 19cdd145d345c4560ccc9d841025415e9696b64e (diff) | |
| download | txr-24130a3641ae179816ca5672bde12cc04be17813.tar.gz txr-24130a3641ae179816ca5672bde12cc04be17813.tar.bz2 txr-24130a3641ae179816ca5672bde12cc04be17813.zip | |
Version 021 preparation.txr-021
Bumped version numbers, and cleaned up trailing whitespace from some files.
Diffstat (limited to 'txr.c')
| -rw-r--r-- | txr.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -42,7 +42,7 @@ #include "utf8.h" #include "txr.h" -const wchar_t *version = L"020"; +const wchar_t *version = L"021"; const wchar_t *progname = L"txr"; const wchar_t *spec_file = L"stdin"; obj_t *spec_file_str; @@ -307,7 +307,7 @@ static int txr_main(int argc, char **argv) if (specstring) { spec_file = L"cmdline"; spec_file_str = string(spec_file); - if (gt(length_str(specstring), zero) && + if (gt(length_str(specstring), zero) && chr_str(specstring, minus(length_str(specstring), one)) != chr('\n')) specstring = cat_str(list(specstring, string(L"\n"), nao), nil); yyin_stream = make_string_byte_input_stream(specstring); |