Skip to content

Instantly share code, notes, and snippets.

@halgari

halgari/gist:6604248

Created September 18, 2013 03:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save halgari/6604248 to your computer and use it in GitHub Desktop.
Save halgari/6604248 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(defrecord Jmp [value block]
IInstruction
(reads-from [this] [value])
(writes-to [this] [])
(block-references [this] [block])
ITerminator
(terminate-block [this state-sym _]
`(do (aset-all! ~state-sym ~VALUE-IDX ~value ~STATE-IDX ~block)
:recur)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment