projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: Finish first pass through r7rs
[fw/altos]
/
src
/
lisp
/
ao_lisp_lambda.c
diff --git
a/src/lisp/ao_lisp_lambda.c
b/src/lisp/ao_lisp_lambda.c
index cc333d6fc3a0dcc8252f8241fd4d21158da142f1..71aebed0d7b55b36435e7d0bb0b967075cae9021 100644
(file)
--- a/
src/lisp/ao_lisp_lambda.c
+++ b/
src/lisp/ao_lisp_lambda.c
@@
-50,7
+50,7
@@
const struct ao_lisp_type ao_lisp_lambda_type = {
};
void
};
void
-ao_lisp_lambda_
print
(ao_poly poly)
+ao_lisp_lambda_
write
(ao_poly poly)
{
struct ao_lisp_lambda *lambda = ao_lisp_poly_lambda(poly);
struct ao_lisp_cons *cons = ao_lisp_poly_cons(lambda->code);
{
struct ao_lisp_lambda *lambda = ao_lisp_poly_lambda(poly);
struct ao_lisp_cons *cons = ao_lisp_poly_cons(lambda->code);
@@
-59,7
+59,7
@@
ao_lisp_lambda_print(ao_poly poly)
printf("%s", ao_lisp_args_name(lambda->args));
while (cons) {
printf(" ");
printf("%s", ao_lisp_args_name(lambda->args));
while (cons) {
printf(" ");
- ao_lisp_poly_
print
(cons->car);
+ ao_lisp_poly_
write
(cons->car);
cons = ao_lisp_poly_cons(cons->cdr);
}
printf(")");
cons = ao_lisp_poly_cons(cons->cdr);
}
printf(")");