diff options
| author | Eduardo Julian | 2017-10-30 21:49:35 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-10-30 21:49:35 -0400 |
| commit | b6c3a84b536235a53bdfaf0f96d76413bc222ba7 (patch) | |
| tree | 6295ffe197e98fc998f1553fed14b44114fbfc8b /new-luxc/test/test/luxc/synthesizer/procedure.lux | |
| parent | 7b870a7bd124f35939d9089a2e21f0806a4c6e85 (diff) | |
- Migrated the format of synthesis nodes from a custom data-type, to just Code nodes.
Diffstat (limited to 'new-luxc/test/test/luxc/synthesizer/procedure.lux')
| -rw-r--r-- | new-luxc/test/test/luxc/synthesizer/procedure.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/new-luxc/test/test/luxc/synthesizer/procedure.lux b/new-luxc/test/test/luxc/synthesizer/procedure.lux index 54f1b1f27..1753dcc47 100644 --- a/new-luxc/test/test/luxc/synthesizer/procedure.lux +++ b/new-luxc/test/test/luxc/synthesizer/procedure.lux @@ -24,8 +24,8 @@ ($_ seq (test "Can synthesize procedure calls." (|> (synthesizer;synthesize (#la;Procedure nameA argsA)) - (case> (#ls;Procedure nameS argsS) - (and (T/= nameA nameS) + (case> (^ [_ (#;Form (list& [_ (#;Text procedure)] argsS))]) + (and (T/= nameA procedure) (list;every? (product;uncurry corresponds?) (list;zip2 argsA argsS))) |