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

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

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

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.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- tran-builtins	22 Apr 2003 17:34:09 -0000	1.2
+++ tran-builtins	1 May 2003 20:51:23 -0000	1.3
@@ -83,10 +83,10 @@
     cursect.align(long(Regstack.pop()))
 
 b, int
-    cursect.emit_byte(long(Regstack.pop()) % 0x100)
+    cursect[::1] = long(Regstack.pop())
 
 b, sym
-    cursect.emit_byte_sum([str(Regstack.pop())])
+    cursect[::1] = str(Regstack.pop())
 
 commit
     Regstack.reverse()