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