if exists("b:current_syntax")
  finish
endif

let b:current_syntax = "bdl"

syn keyword bdlKeyword lambda if def fun
syn match bdlKeyword "set!"
syn match bdlComment ";.*$"

syn match bdlNumber '\d\+'
syn match bdlNumber '[-+]\d\+'

syn region bdlString start=/\v"/ skip=/\v\\./ end=/\v"/

hi def link bdlKeyword Keyword
hi def link bdlComment Comment
hi def link bdlNumber Number
hi def link bdlString String