diff options
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) |