changeset 965:2ea446854c3d

Oops, one "/eval /set" had been accidentally left in. Fixed.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 23 Mar 2009 12:45:19 +0000
parents 222cf2a9c00e
children 151d961a7a91
files gm-rpouch.tf
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/gm-rpouch.tf	Sun Mar 22 18:22:08 2009 +0000
+++ b/gm-rpouch.tf	Mon Mar 23 12:45:19 2009 +0000
@@ -251,7 +251,7 @@
 	/elseif (regmatch("^(rset|set) +([A-Za-z][A-Za-z ]+) ([0-9]+)", _args))\
 		/if ({P1}=~"set")\
 			/let _tmps=$[replace(" ","_",tolower({P2}))]%;\
-			/eval /set _rpas=$$[rpouch_reg_%{_tmps}]%;\
+			/let _rpas=$[prgetval(strcat("rpouch_reg_",_tmps))]%;\
 			/if (_rpas!~"")\
 				/msq Reagent '@{Cgreen}%{_tmps}@{n}' (@{Cyellow}%{_rpas}@{n}) set to @{BCwhite}%{P3}@{n}%;\
 				/set rpouch_set_%{_tmps}=%{P3}%;\