Skip to content

Instantly share code, notes, and snippets.

@labster
Created May 17, 2013 09:09
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 labster/5597934 to your computer and use it in GitHub Desktop.
Save labster/5597934 to your computer and use it in GitHub Desktop.
proto infix:<=>($, $) is rw { * }
multi infix:<=>(Mu \a, Mu \b) is rw {
nqp::p6store(a, b)
}
multi infix:<=>(Mu \a, Nil \b) is rw {
if nqp::iscont(a) {
nqp::p6store(a, a.VAR.of);
}
else { X::Assignment::RO.new.throw; }
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment