mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-03-17 10:10:47 -07:00
reader: fix set_syntax_from_char copying behavior
This commit is contained in:
parent
1802d96b91
commit
11914c6809
1 changed files with 1 additions and 1 deletions
|
|
@ -1921,7 +1921,7 @@ ecl_invalid_character_p(int c)
|
|||
tc = ecl_char_code(tochr);
|
||||
|
||||
cat = ecl_readtable_get(fromrdtbl, fc, &dispatch);
|
||||
if (ECL_READTABLEP(dispatch)) {
|
||||
if (ECL_HASH_TABLE_P(dispatch)) {
|
||||
dispatch = si_copy_hash_table(dispatch);
|
||||
}
|
||||
ecl_readtable_set(tordtbl, tc, cat, dispatch);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue