From 346937a31a7b5b3e2afc0ee7cd370c35bb810bcd Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 28 Oct 2007 01:19:19 -0400 Subject: [PATCH] Fix stack effect error in com-back --- extra/ui/tools/walker/walker.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) mode change 100644 => 100755 extra/ui/tools/walker/walker.factor diff --git a/extra/ui/tools/walker/walker.factor b/extra/ui/tools/walker/walker.factor old mode 100644 new mode 100755 index fabdf26818..3ff9b284e5 --- a/extra/ui/tools/walker/walker.factor +++ b/extra/ui/tools/walker/walker.factor @@ -39,7 +39,7 @@ TUPLE: walker model interpreter history ; : com-back ( walker -- ) dup walker-history - dup empty? [ drop ] [ pop swap call-tool* ] if ; + dup empty? [ 2drop ] [ pop swap call-tool* ] if ; : reset-walker ( walker -- ) over set-walker-interpreter