From 2846f28254b5d7a979b51c449dcda71bcc1e3d1a Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Mon, 8 Aug 2011 17:38:13 -0400
Subject: [PATCH] korean language maybe

---
 lang/korean.rkt | 51 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 lang/korean.rkt

diff --git a/lang/korean.rkt b/lang/korean.rkt
new file mode 100644
index 0000000..323e1bd
--- /dev/null
+++ b/lang/korean.rkt
@@ -0,0 +1,51 @@
+#lang s-exp "base.rkt"
+
+(require (for-syntax racket/base))
+
+
+(define-syntax 정의
+  (make-rename-transformer #'define))
+
+
+(define-syntax 정의-구조
+  (make-rename-transformer #'define-struct))
+
+
+(define-syntax 지역
+  (make-rename-transformer #'local))
+
+
+(define-syntax 조건부
+  (make-rename-transformer #'cond))
+
+
+(define-syntax 다른
+  (make-rename-transformer #'else))
+
+
+(define-syntax 면
+  (make-rename-transformer #'if))
+
+
+(define-syntax 케이스
+  (make-rename-transformer #'case))
+
+
+(define-syntax 람다
+  (make-rename-transformer #'lambda))
+
+
+(define-syntax 수정
+  (make-rename-transformer #'set!))
+
+
+(define-syntax 또는
+  (make-rename-transformer #'or))
+
+
+(define-syntax 과
+  (make-rename-transformer #'and))
+
+
+(define-syntax 필요
+  (make-rename-transformer #'require))
\ No newline at end of file