From 6a4d1e68f1e6ee72aeeccf6469061b735e04c5d3 Mon Sep 17 00:00:00 2001
From: "Alex A. Naanou" <alex.nanou@gmail.com>
Date: Tue, 3 Jun 2014 15:14:12 +0400
Subject: [PATCH] changed the .. word in slang to an infix range/2...

Signed-off-by: Alex A. Naanou <alex.nanou@gmail.com>
---
 Slang/slang.js | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/Slang/slang.js b/Slang/slang.js
index ff624f1..ea36375 100755
--- a/Slang/slang.js
+++ b/Slang/slang.js
@@ -663,7 +663,7 @@ var BOOTSTRAP = [
 '-- misc...',
 '',
 ':: . ( x -- ) [ drop ]',
-':: .. ( x -- ) [ print drop ]',
+//':: .. ( x -- ) [ print drop ]',
 '',
 ':: true? ( a -- b ) [ not not true eq ]',
 ':: false? ( a -- b ) [ not true? ]',
@@ -855,10 +855,13 @@ var BOOTSTRAP = [
 '-- Mandatory "hello word" word example...',
 ':: hi ( -- ) [ "Hello World!" print drop ]',
 '',
-'-- Create a block containg a range of n numbers form 0 and adding s to',
-'-- each next number...',
-':: range/2 ( n s -- b )',
-'		[ swap range swap [] swap push \\ * 0 before map ]',
+'-- Create a block containg a range of numbers from f to t, inclusive...',
+':: range/2 ( f t -- b )',
+'		[ dup2 swap sub swap . inc range swap [] swap push \\ + 0 before map ]',
+'',
+'-- this will enable us to create ranges via 0 .. 4',
+'infix: .. range/2',
+'',
 //':: range/3 ( a n s -- b )',
 //'		[ swap range swap [] swap push \\ * 0 before map ]',
 '',