* fixed and wrote test for lambda and function as arg case

* added license to userlib tests
* added map impl to userlib
* userlib tests now run and pass
* all args are evaluated individually

tests/test_func.rs

@@ -252,7 +252,7 @@ mod func_tests {
             syms.call_symbol(&"test_func_in".to_string(), &args, true)
                 .err()
                 .unwrap(),
-            "error in call to undefined-symbol: undefined symbol: undefined-symbol".to_string(),
+            "error evaluating args: undefined symbol: undefined-symbol".to_string(),
         );
     }
 }

tests/test_lib_decl.rs

@@ -335,6 +335,26 @@ mod decl_lib_tests {
         }
     }
 
+    #[test]
+    fn test_lambda_arg_call() {
+        let document = "(let (())
+            (def appl '' (func item) (func item))
+            (def adder 'my adder' (lambda (x) (add x 1)))
+            (appl adder 2))";
+        let mut syms = SymTable::new();
+        static_stdlib(&mut syms).unwrap();
+        dynamic_stdlib(&mut syms).unwrap();
+        let it = *eval(
+            &lex(&document.to_string()).unwrap(),
+            &mut syms).unwrap();
+        if let Ctr::Integer(i) = it {
+            assert_eq!(i, 3)
+        } else {
+            println!("bad result: {}", it);
+            panic!()
+        }
+    }
+
     #[test]
     fn test_setget_doc_string() {
         let highly_inadvisable = "(set-doc (q help) 'help')";