From 594ecf396cad8a38aac168062249ab3361c5b558 Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Sun, 17 Dec 2017 22:30:06 +0100
Subject: Move old things out of the way

---
 stdlib.hs | 16 ----------------
 1 file changed, 16 deletions(-)
 delete mode 100644 stdlib.hs

(limited to 'stdlib.hs')

diff --git a/stdlib.hs b/stdlib.hs
deleted file mode 100644
index 6f7334f..0000000
--- a/stdlib.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-module Stdlib(stdlib) where
-
-import AST
-import Parser
-
-
-stdlib :: Program
-stdlib = fromRight $ parseProgram
-    "(define not (x) (= x 0))\n\
-    \(define id (x) x)\n\
-    \(define nil (x) (= x '()))\n\
-    \(define . (f g) (lambda (x) (f (g x))))\n"
-
-fromRight :: Show a => Either a b -> b
-fromRight (Right b) = b
-fromRight (Left a) = error $ "fromRight on Left: " ++ show a
-- 
cgit v1.2.3-70-g09d2