affine/flesh
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added USERLIB with prepend and set.

Browse source 
Added a q shortcut to quote
get-doc and set-doc no longer conditionally evaluate args
Fixed bug in let, documented potential performance improvements
upped default history to 5k lines
This commit is contained in:
Ava Apples Affine 2023-03-17 13:06:27 -07:00
parent a01df6b7b2
commit 1ee9ba55fb
Signed by: affine
GPG key ID: 3A4645B8CF806069
7 changed files with 70 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tests/test_lib_decl.rs
View file

@ -112,7 +112,7 @@ mod decl_lib_tests {
let doc1 = "(def test-doc 'docs for test' 'test tests tests test')";
let doc2 = "(def test test-doc 'one')";
let doc3 = "(eq? (and
(eq? (get-doc test) test-doc)
(eq? (get-doc (quote test)) test-doc)
(eq? test 'one')))";
let mut syms = SymTable::new();
@ -337,8 +337,8 @@ mod decl_lib_tests {
#[test]
fn test_setget_doc_string() {
let highly_inadvisable = "(set-doc help 'help')";
let document = "(get-doc help)";
let highly_inadvisable = "(set-doc (q help) 'help')";
let document = "(get-doc (q help))";
let mut syms = SymTable::new();
static_stdlib(&mut syms).unwrap();
dynamic_stdlib(&mut syms).unwrap();