From 57933179be2a241d479666e02cab7644b7dd4688 Mon Sep 17 00:00:00 2001
From: U-BRIAN-X60\Brian Silverman <Brian Silverman@Brian-X60.(none)>
Date: Thu, 24 Apr 2008 19:57:47 +0000
Subject: French blocks etc

---
(limited to 'talogo.py')

diff --git a/talogo.py b/talogo.py
index f32a710..0e441bd 100755
--- a/talogo.py
+++ b/talogo.py
@@ -229,6 +229,10 @@ def prim_stack2(lc):
 def prim_stopstack(lc):
     lc.procstop = True
 
+def careful_divide(x,y):
+    if y==0: return 0
+    return x/y
+
 def ufuncall(body):
     ijmp(evline, body); yield True
 
@@ -256,7 +260,7 @@ def lcNew(tw):
     defprim(lc,'+', None, lambda lc,x,y:x+y)
     defprim(lc,'-', None, lambda lc,x,y:x-y)
     defprim(lc,'*', None, lambda lc,x,y:x*y)
-    defprim(lc,'/', None, lambda lc,x,y:x/y)
+    defprim(lc,'/', None, lambda lc,x,y:careful_divide(x,y))
     defprim(lc,'random', 2, lambda lc,x,y: int(random.uniform(x,y)))
     defprim(lc,'greater?', 2, lambda lc,x,y: float(x)>float(y))
     defprim(lc,'less?', 2, lambda lc,x,y: float(x)<float(y))
--
cgit v0.9.1