Mercurial > urweb
view tests/reduce.ur @ 2142:3288e3c9948b
Fix XML indentation in Emacs mode
The return value of MATCH-STRING is a string. At least on Emacs 25,
the comparisons between string and character with EQUAL could never
succeed, and so the cases for matching braces were never triggered.
GET-TEXT-PROPERTY may return a list rather than an atom (for example,
on long lines with whitespace-mode turned on), and this broke the
heuristic of looking for the tag face in previous text.
author | Julian Squires <julian@cipht.net> |
---|---|
date | Mon, 04 May 2015 14:35:07 -0400 |
parents | 71bafe66dbe1 |
children |
line wrap: on
line source
con c1 = int con c2 = (fn t :: Type => t) int con id = fn t :: Type => t con c3 = id int con fst = fn t1 :: Type => fn t2 :: Type => t1 con c4 = fst int string con snd = fn t1 :: Type => fn t2 :: Type => t2 con c5 = snd int string con apply = fn f :: Type -> Type => fn t :: Type => f t con c6 = apply id int con c7 = apply (fst int) string val tickle = fn n :: Name => fn t :: Type => fn fs :: {Type} => fn x : $([n = t] ++ fs) => x val tickleA = tickle[#A][int][[B = string]] val test_tickleA = tickleA {A = 6, B = "13"} val grab = fn n :: Name => fn t ::: Type => fn fs ::: {Type} => fn x : $([n = t] ++ fs) => x.n val test_grab1 = grab[#A] {A = 6, B = "13"} val test_grab2 = grab[#B] {A = 6, B = "13"} val main = {A = test_grab1, B = test_grab2}