From 047fb919e7a08c7daa5ec4581fc5ab8cf5f25a6f Mon Sep 17 00:00:00 2001 From: Drahflow Date: Sun, 30 Dec 2012 14:39:45 +0100 Subject: -, _, * now normal functions --- examples/working/qsort.ey | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples/working/qsort.ey') diff --git a/examples/working/qsort.ey b/examples/working/qsort.ey index c7bf93c..79e9f4c 100644 --- a/examples/working/qsort.ey +++ b/examples/working/qsort.ey @@ -14,8 +14,8 @@ } each store _ end a swap - _ 1 sub start -0101 lt { a qsort } { -- } ? * - 1 add end -1010 lt { a qsort } { -- } ? * + _ 1 sub start -0101 lt { a qsort } { -2 } ? * + 1 add end -1010 lt { a qsort } { -2 } ? * } /qsort deff { _ len _ 0 gt { 1 sub 0 -012 qsort } rep } /sort deff -- cgit v1.2.3