X-Git-Url: https://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=tests.scm;h=0e70480b41eb93a80134bfb9f124792f9b5b758f;hp=89ca852986f7e921f7a54e1153edc9be0be2f33c;hb=dd6aea9a23307c5b958c55d489e31f34a6378885;hpb=2672d991b4316665913b46c44763cc2b012043b0 diff --git a/tests.scm b/tests.scm index 89ca852..0e70480 100644 --- a/tests.scm +++ b/tests.scm @@ -51,3 +51,6 @@ ; passing closures about (test-prog '((lambda (z) ((lambda (x) (x 1)) (lambda (y) (+ z y)))) 2) 3) + + ; passing builtins about +(test-prog '((lambda (x) ((lambda (a b) (a b 3)) + x)) 3) 6)