From f27779be825c2cf7ff027acb9a4b7819add3bb30 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Thu, 17 Dec 2015 23:05:46 +0100
Subject: Don't pollute scopes around include

---
 compiler/standardClient.ey | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'compiler/standardClient.ey')

diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey
index fecbf97..ca05e41 100644
--- a/compiler/standardClient.ey
+++ b/compiler/standardClient.ey
@@ -1219,17 +1219,17 @@
 
 # no long-term stack use here as the executed program uses it as well
 { scope
-  0 "0" * ==:zero
-  { 0 ==result
-    { zero sub result 10 mul add =result } each
-    result
-  } /base10decode deffd
+  { ==currentScope ==input
+    0 "0" * ==:zero
+    { 0 ==result
+      { zero sub result 10 mul add =result } each
+      result
+    } /base10decode deffd
 
-  [ 0 11 range {
-    sys .asm .intToFloat
-  } each ] =*:FLOAT
+    [ 0 11 range {
+      sys .asm .intToFloat
+    } each ] =*:FLOAT
 
-  { ==currentScope ==input
     { .value currentScope sys .executeIdentifierScoped =currentScope } /TOKID defvst
     { .value base10decode } /TOKINT defvd
     { .value "^(\\d+)(\\.(\\d*))?([eE](-)?(\\d+))?$" regex
-- 
cgit v1.2.3