test35   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/core/extempore_lang.xtm

Implementation

(bind-func test35
  (lambda ()
    (let ((b:|5,double|* (zalloc)))
      (aset! b 0
             (memzone 1024
               (let ((a:|10,double|* (zalloc)))
                 (aset! a 0 3.5)
                 (aref a 0))))
      (let ((c:|9,i32|* (zalloc)))
        (aset! c 0 99)
        (aref b 0)))))


Back to Index