diff options
author | bnewbold <bnewbold@eta.mit.edu> | 2009-05-05 00:38:36 -0400 |
---|---|---|
committer | bnewbold <bnewbold@eta.mit.edu> | 2009-05-05 00:38:36 -0400 |
commit | cd66e89f6f563519c62c8e8b85be151588245ce9 (patch) | |
tree | febe34d254d67a858bdd477c9264461954e44be2 /final_project/work/discovery.scm | |
parent | ed4b2e746f7110e5c875fc33513426acdbc39e5d (diff) | |
download | 6.945-cd66e89f6f563519c62c8e8b85be151588245ce9.tar.gz 6.945-cd66e89f6f563519c62c8e8b85be151588245ce9.zip |
notes and some apply-all work
Diffstat (limited to 'final_project/work/discovery.scm')
-rw-r--r-- | final_project/work/discovery.scm | 15 |
1 files changed, 12 insertions, 3 deletions
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) |