From 514cbe8a321282b53717104d80cda2cf211b8854 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sun, 17 Feb 2008 20:44:34 -0600 Subject: [PATCH 1/2] builder: do require before run --- extra/benchmark/benchmark.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/benchmark/benchmark.factor b/extra/benchmark/benchmark.factor index 01e7d2c78e..bd13455357 100755 --- a/extra/benchmark/benchmark.factor +++ b/extra/benchmark/benchmark.factor @@ -6,7 +6,7 @@ continuations debugger ; IN: benchmark : run-benchmark ( vocab -- result ) - [ [ run ] benchmark ] [ error. drop f f ] recover 2array ; + [ dup require [ run ] benchmark ] [ error. drop f f ] recover 2array ; : run-benchmarks ( -- assoc ) "benchmark" all-child-vocabs values concat [ vocab-name ] map From 619ebbf0d7c7add4a98cc040e46819df4cacd6e9 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 18 Feb 2008 05:12:38 -0600 Subject: [PATCH 2/2] Fix see for HOOK: --- core/prettyprint/prettyprint.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/prettyprint/prettyprint.factor b/core/prettyprint/prettyprint.factor index 2d4e6ced14..d578738c56 100755 --- a/core/prettyprint/prettyprint.factor +++ b/core/prettyprint/prettyprint.factor @@ -174,7 +174,7 @@ M: hook-generic synopsis* dup definer. dup seeing-word dup pprint-word - dup "combination" word-prop hook-combination-var pprint-word + dup "combination" word-prop hook-combination-var pprint* stack-effect. ; M: method-spec synopsis*