projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/scheme: Don't optimize ao_scheme_make_const
[fw/altos]
/
src
/
scheme
/
ao_scheme_read.c
diff --git
a/src/scheme/ao_scheme_read.c
b/src/scheme/ao_scheme_read.c
index dce480ab1745197f0b858be9ef25b1bd57b6b846..721211bc7a9b3ad1e57e23d6803bf516f215de8b 100644
(file)
--- a/
src/scheme/ao_scheme_read.c
+++ b/
src/scheme/ao_scheme_read.c
@@
-555,7
+555,7
@@
ao_poly
ao_scheme_read(void)
{
struct ao_scheme_atom *atom;
ao_scheme_read(void)
{
struct ao_scheme_atom *atom;
-
char
*string;
+
struct ao_scheme_string
*string;
int read_state;
ao_poly v = AO_SCHEME_NIL;
int read_state;
ao_poly v = AO_SCHEME_NIL;
@@
-605,7
+605,7
@@
ao_scheme_read(void)
v = _ao_scheme_bool_false;
break;
case STRING:
v = _ao_scheme_bool_false;
break;
case STRING:
- string = ao_scheme_string_
copy
(token_string);
+ string = ao_scheme_string_
make
(token_string);
if (string)
v = ao_scheme_string_poly(string);
else
if (string)
v = ao_scheme_string_poly(string);
else