caspp   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/contrib/cas.xtm

Implementation

(bind-func caspp
  (let ((cnt 0))
    (lambda (s:i8* pp:i1)
      (if pp (printout " in[" cnt "]: " (Symbol s) "\n"))
      (beginz
       (let ((res (caseval s)))
         (if pp (printout "out[" cnt "]: " (Symbol res) "\n"))
         (set! cnt (+ cnt 1))
         res)))))


Back to Index

Similar Entries