From f55c15e0d7a5a918d8107b20015af722537ceed6 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Mon, 4 Mar 2013 12:51:35 -0700
Subject: [PATCH] adding a wescheme language for the repl, which automatically
 imports the image library.

---
 whalesong/wescheme/lang/reader.rkt    | 4 ++++
 whalesong/wescheme/lang/semantics.rkt | 7 +++++++
 2 files changed, 11 insertions(+)
 create mode 100644 whalesong/wescheme/lang/reader.rkt
 create mode 100644 whalesong/wescheme/lang/semantics.rkt

diff --git a/whalesong/wescheme/lang/reader.rkt b/whalesong/wescheme/lang/reader.rkt
new file mode 100644
index 0000000..046e7ef
--- /dev/null
+++ b/whalesong/wescheme/lang/reader.rkt
@@ -0,0 +1,4 @@
+#lang s-exp syntax/module-reader
+#:language (lambda (ip) `(file ,(path->string semantics-path)))
+(require racket/runtime-path)
+(define-runtime-path semantics-path "semantics.rkt")
diff --git a/whalesong/wescheme/lang/semantics.rkt b/whalesong/wescheme/lang/semantics.rkt
new file mode 100644
index 0000000..f0fc224
--- /dev/null
+++ b/whalesong/wescheme/lang/semantics.rkt
@@ -0,0 +1,7 @@
+#lang whalesong
+
+(require whalesong/image
+         whalesong/lang/whalesong)
+
+(provide (all-from-out whalesong/lang/whalesong)
+         (all-from-out whalesong/image))