Remove magic numbers

This commit is contained in:
Steve Dee 2014-01-23 11:23:28 -08:00
parent 61159964fa
commit 26da497892

View File

@ -62,7 +62,7 @@
::
++ puck
|= sk=@ ^- @
=+ h=(shal 32 sk)
=+ h=(shal (rsh 0 3 b) sk)
=+ ^= a
%+ add
(bex (sub b 2))
@ -72,7 +72,7 @@
::
++ sign
|= [m=@ sk=@ pk=@] ^- @
=+ h=(shal 32 sk)
=+ h=(shal (rsh 0 3 b) sk)
=+ ^= a
%+ add
(bex (sub b 2))