diff options
| author | Eduardo Julian | 2017-10-31 01:53:56 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-10-31 01:53:56 -0400 |
| commit | e0f63b0cfda4d7dd0d233d13ce88b5da889dea02 (patch) | |
| tree | 77a6a0db4fb096715743961d2efe0e5df256a293 /new-luxc/source/luxc/analyser/procedure.lux | |
| parent | 89f165331e97d6f0814238fbc7686daac3aa4888 (diff) | |
- Now, all special forms are handled as procedures.
- "lux case" now takes its branches as a non-empty record.
Diffstat (limited to 'new-luxc/source/luxc/analyser/procedure.lux')
| -rw-r--r-- | new-luxc/source/luxc/analyser/procedure.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/new-luxc/source/luxc/analyser/procedure.lux b/new-luxc/source/luxc/analyser/procedure.lux index 53ad8276c..225fb7b23 100644 --- a/new-luxc/source/luxc/analyser/procedure.lux +++ b/new-luxc/source/luxc/analyser/procedure.lux @@ -15,9 +15,9 @@ (|> ./common;procedures (dict;merge ./host;procedures))) -(def: #export (analyse-procedure analyse proc-name proc-args) - (-> &;Analyser Text (List Code) (Meta la;Analysis)) +(def: #export (analyse-procedure analyse eval proc-name proc-args) + (-> &;Analyser &;Eval Text (List Code) (Meta la;Analysis)) (<| (maybe;default (&;fail (format "Unknown procedure: " (%t proc-name)))) (do maybe;Monad<Maybe> [proc (dict;get proc-name procedures)] - (wrap (proc analyse proc-args))))) + (wrap (proc analyse eval proc-args))))) |