Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (X13/Arch) Simplified things a little 0643405 9 days ago 1260 Commits
nujel / tests / fast / image1.nuj
Raw
application/octet-stream • 348 B • 13 lines 
(defclass T
          (defn new (self)
                { :prototype* self :count 0 })

          (defn inc (self)
                (set! self :count (inc (ref self :count)))
                (ref self :count)))

(def res (:inc (:new T)))

(return (if (= res 1)
            :success
            (exception :incorrect-result "Should result in 1" res)))