More unicode in stdlib/sugar

closes #21
2015-09-25 19:44:37 -04:00 · 2015-09-25 19:44:37 -04:00 · ff2f052a21
commit ff2f052a21
parent 84359fc2fd
1 changed files with 26 additions and 0 deletions
--- a/stdlib/sugar.rkt
+++ b/stdlib/sugar.rkt
@ -4,6 +4,11 @@
  ->*
  forall*
  lambda*
+  (rename-out
+    [-> →]
+    [->* →*]
+    [lambda* λ*]
+    [forall* ∀*])
  #%app
  define
  elim
@ -116,3 +121,24 @@
 (define-syntax (run syn)
  (syntax-case syn ()
    [(_ expr) (normalize/syn #'expr)]))
+
+(module+ test
+  (require rackunit (submod ".."))
+
+  (check-equal?
+    ((λ* (x : (Type 1)) (y : (∀* (x : (Type 1)) (Type 1))) (y x))
+     Type
+     (λ (x : (Type 1)) x))
+    Type)
+
+  (check-equal?
+    ((λ* (x : (Type 1)) (y : (→* (Type 1) (Type 1))) (y x))
+     Type
+     (λ (x : (Type 1)) x))
+    Type)
+
+  (check-equal?
+    ((λ* (x : (Type 1)) (y : (→ (Type 1) (Type 1))) (y x))
+     Type
+     (λ (x : (Type 1)) x))
+    Type))