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 ]', '',