diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2022-11-26 15:49:42 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2022-11-26 15:49:42 +0100 |
| commit | 83e1cb5cc71e28adc444d8ea70b9530e06a64f08 (patch) | |
| tree | 0aa85ee4ccc730a9e2c625999f0c5efde74f5640 /app/Frontend.hs | |
| parent | a26f0f29c02bfb4ec56781397d60abeb498b8c12 (diff) | |
| download | prlg-83e1cb5cc71e28adc444d8ea70b9530e06a64f08.tar.gz prlg-83e1cb5cc71e28adc444d8ea70b9530e06a64f08.tar.bz2 | |
a bit more flexible VarI processing
Diffstat (limited to 'app/Frontend.hs')
| -rw-r--r-- | app/Frontend.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/app/Frontend.hs b/app/Frontend.hs index a5fa71f..39689f2 100644 --- a/app/Frontend.hs +++ b/app/Frontend.hs @@ -49,7 +49,7 @@ interpret = (>> return True) . lex underscore <- findAtom "_" prlgv <- withStrTable $ \st -> - (st, C.variablizePrlg underscore (C.varIds st prlgi) prlgi) + (st, C.squashVars $ C.variablizePrlg underscore st prlgi) compile prlgv compile prlgv = do commaId <- findStruct "," 2 |