diff options
Diffstat (limited to 'src/Binary.hs')
| -rw-r--r-- | src/Binary.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/Binary.hs b/src/Binary.hs index 3f77d4a..acf20d4 100644 --- a/src/Binary.hs +++ b/src/Binary.hs @@ -61,8 +61,6 @@ fromJot = worker . reverse k = Function $ NormalFunction "k" worker ('0' : xs) = Application (Application (worker xs) s) k worker ('1' : xs) = Application s (Application k (worker xs)) - -- worker ('1' : xs) = Abstraction - -- (Abstraction (Application (worker xs) (Application (Bruijn 1) (Bruijn 0)))) worker _ = Abstraction (Bruijn 0) |