diff options
Diffstat (limited to 'src/main.hs')
| -rw-r--r-- | src/main.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/main.hs b/src/main.hs index 0f0aeb8..e14e5ac 100644 --- a/src/main.hs +++ b/src/main.hs @@ -200,6 +200,10 @@ interpretWord state@LState {lDefs = defs, lDict = dict, lSource = source, lPhras let (LSymbol "]" : stack') = stack (body, _ : newStack) = break (== LSymbol "[") stack' in pure $ state {lStack = LPhrase (reverse body) : newStack} + "repr" -> + let (word : stack') = stack + reprStr = reprWord word $> map LChar .> LPhrase + in pure $ state {lStack = reprStr : stack'} "pop" -> let (LPhrase phrase : stack') = stack (first : rest) = phrase |