max/uclisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make setq bind locally

Browse Source
This commit is contained in:
Max Regan
2022-11-16 22:55:25 -05:00
parent a093fb0b9c
commit 2ae4e38400
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/test_e2e.c
View File

@@ -152,6 +152,10 @@ void test_setq(void) {
}
void test_setq_from_function(void) {
response = eval("(setq bar 1)");
TEST_ASSERT_OBJ_INT_V(response, 1);
response = eval("(defun foo (a) (setq bar a))");
TEST_ASSERT_OBJ_SYMBOL_V(response, "foo");
@@ -162,7 +166,7 @@ void test_setq_from_function(void) {
response = eval("bar");
TEST_ASSERT_OBJ_INT_V(response, 2);
TEST_ASSERT_OBJ_INT_V(response, 1);
}
void test_lambda(void) {