ASM code sample

gistfile1.lisp

#; ASM code sample**

#; Extend the language however you please.
(syntax (Ternary < Expression (: "\\?") Expression (: ":") Expression)
  `($(car Ternary)
     ($(ternary-to-if (caadr Ternary)))))

#; Use the whole language to your advantage.
(function (ternary-to-if t)
  `(if $(car t)
       $(cadr t)
       $(caddr t)))

#; Interaction with the rest of the grammar is well-defined.
#; No more hard to find bugs!
(syntax (Expression < (/ Quote Tuple Vector String Ternary Atom))

#; It's that simple!
(function (abs x)
  (> 0 x) ? (- x) : x )