[Wisp-cvs] wisp/users/dig tran-builtins,1.3,1.4

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv14202

Modified Files:
	tran-builtins 
Log Message:
use clearer syntax

Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- tran-builtins	1 May 2003 20:51:23 -0000	1.3
+++ tran-builtins	1 May 2003 20:52:34 -0000	1.4
@@ -118,15 +118,15 @@
     Regstack.append(y); Regstack.append(x)
 
 t, int
-    cursect.emit_tetra(long(Regstack.pop()) % 0x100000000L)
+    cursect[::4] = long(Regstack.pop())
 
 t, sym
-    cursect.emit_tetra_sum([str(Regstack.pop())])
+    cursect[::4] = str(Regstack.pop())
 
 w, int
-    cursect.emit_wyde(long(Regstack.pop()) % 0x10000L)
+    cursect[::2] = long(Regstack.pop())
 
 w, sym
-    cursect.emit_wyde_sum([str(Regstack.pop())])
+    cursect[::2] = str(Regstack.pop())
 
 # vim: ft=python