From cd66e89f6f563519c62c8e8b85be151588245ce9 Mon Sep 17 00:00:00 2001 From: bnewbold Date: Tue, 5 May 2009 00:38:36 -0400 Subject: notes and some apply-all work --- final_project/work/discovery.scm | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) (limited to 'final_project/work/discovery.scm') diff --git a/final_project/work/discovery.scm b/final_project/work/discovery.scm index 8104733..3fa138f 100644 --- a/final_project/work/discovery.scm +++ b/final_project/work/discovery.scm @@ -137,12 +137,21 @@ -------------------- End Testing ------------------- |# +(define (discover:apply-all . args) + (filter (compose not null?) + (map (lambda (oper) + (if (symbol? oper) + '() + (list oper (apply oper args)))) + (apply discover:opers-for args)))) +(discover:apply-all 2) + +(discover:named-opers-for 2) +(environment-lookup (the-environment) 'sin) - - - +(one-like 4) -- cgit v1.2.3