Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Monadic cond in LISP

Name: Anonymous 2011-02-08 17:34

I'll now post code written with some obscure macros whose implementation will never be released.



(define-macro mcond

  #:keyword (else =>)

  (macro-case

   (() #f)

   (((t) (e . r) ...) (>> failure-m t (mcond (e . r) ...)))

   (((else . t)) (begin . t))

   (((p => f) (e . r) ...) (>> failure-m (>>= maybe-m p f) (mcond (e . r) ...)))

   (((p . t) (e . r) ...) (>> failure-m (>> maybe-m p (begin . t)) (~ (e . r) ...)))))

Name: Anonymous 2011-02-09 17:51

>>34



e:m:if @body -> $@body.{#($t then $a else $b) -> #(_if $t $a $b)

                       ;#($t then $a        ) -> #(_if $t $a no)

                       ;#($t      $a      $b) -> #(_if $t $a $b)

                       ;#($t      $a        ) -> #(_if $t $a no)

                       ;default               -> error "if: syntax error"}

Newer Posts

Monadic cond in LISP

1 Name: Anonymous 2011-02-08 17:34

36 Name: Anonymous 2011-02-09 17:51

Name: Anonymous 2011-02-08 17:34

Name: Anonymous 2011-02-09 17:51