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* 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