Skip to content

Instantly share code, notes, and snippets.

@jnthn
Created July 25, 2010 17:39
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 jnthn/489711 to your computer and use it in GitHub Desktop.
Save jnthn/489711 to your computer and use it in GitHub Desktop.
new $P79, "Int"
assign $P79, 1
if $P79, if_78
set $P77, $P79
goto if_78_end
if_78:
find_lex $P80, "$_"
.local pmc old_topic24
set old_topic24, $P80
new $P81, "Int"
assign $P81, 1
store_lex "$_", $P81
new $P82, "Int"
assign $P82, 1
find_lex $P83, "$_"
$P84 = $P82."ACCEPTS"($P83)
.local pmc sm_result25
set sm_result25, $P84
store_lex "$_", old_topic24
if_78_end:
if $P77, if_76
set $P75, $P77
goto if_76_end
if_76:
.const 'Sub' $P86 = "29_1280079504.687"
capture_lex $P86
$P103 = $P86()
set $P75, $P103
if_76_end:
.return ($P75)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment