add square to prelude

Sigrid Haflínudóttir committed 6 years ago

Commit 7e7bad91 parent 4a6ea9a2 files · +2 −0Browse files

Unified · Split

2 files

README.md +1 −0
aa.c +1 −0

README.md+1−0

@@ -43,6 +43,7 @@ newline · 42 unmodified lines
43	not	43	not
44	or	44	or
45	quote	45	quote
		46	square
46	while	47	while
47	```	48	```
48		49

aa.c+1−0

@@ -130,6 +130,7 @@ static aaObject rparen; · 129 unmodified lines
130		130
131	static char prelude[] = "\	131	static char prelude[] = "\
132	(define newline (lambda () (display \"\\n\")))\	132	(define newline (lambda () (display \"\\n\")))\
		133	(define square (lambda (x) (* x x)))\
133	";	134	";
134		135
135	static aaObject eval(aaContext ctx, aaObject obj, aaObject env, aaObject **bind);	136	static aaObject eval(aaContext ctx, aaObject obj, aaObject env, aaObject **bind);