add square to prelude

Sigrid Haflínudóttir committed 6 years ago

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

Unified · Split

2 files

aa.c+1−0

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

Keyboard shortcuts