[Wisp-cvs] wisp/users/dig tran.py,1.4,1.5

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

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

Modified Files:
	tran.py 
Log Message:
added the |- int int| word

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- tran.py	14 Apr 2003 02:06:42 -0000	1.4
+++ tran.py	14 Apr 2003 02:09:39 -0000	1.5
@@ -97,6 +97,8 @@
     State = state_regs
 def plus (a, b):
     Regstack.append(a + b)
+def minus (a, b):
+    Regstack.append(a - b)
 
 def matchers (object):
     if isinstance(object, ClassMarker):
@@ -199,6 +201,7 @@
 MA_PREFIX = 010
 Meaning = {
     '+ int int':    ('builtin', plus,        2),
+    '- int int':    ('builtin', minus,       2),
     '.data':        ('builtin', dot_data,    0),
     '.text':        ('builtin', dot_text,    0),
     ':macro':       ('builtin', colon_macro, 0 | MA_PREFIX),