Paste: fail

( scratchpad ) "ui.tools" run
Type check error
Object: f
Object type: POSTPONE: f
Expected type: fixnum

Type :help for debugging help.
( scratchpad ) :c
(U) Quotation: [ c-to-factor -> ]
    Word: c-to-factor
(U) Quotation: [ swap >c call -> c> drop ]
(U) Quotation: [
        (command-line) parse-command-line
        load-vocab-roots run-user-init "e" get script get or
        [ "e" get ~quotation~ when* script get ~quotation~ when* ]
        [ "run" get run ] if -> output-stream get
        [ stream-flush ] when* 0 exit
    ]
(O) Word: listener
(O) Word: (listener)
(U) Quotation: [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call datastack ] dip -> swap [ set-datastack ] dip
    ]
(U) Quotation: [ call -> datastack ]
(O) Method: M\ gtk-ui-backend (with-ui)
(O) Word: start-ui
(U) Quotation: [ listener-window* -> drop ]
(O) Word: open-world-window
(O) Word: pref-dim
(O) Method: M\ track pref-dim*
(O) Word: track-pref-dims-1
(O) Word: pref-dims
(O) Word: pref-dim
(O) Method: M\ pango-renderer string-dim
(O) Method: M\ pango-renderer string-dim
(O) Word: cached-layout
(O) Word: <layout>
(O) Word: <PangoLayout>
(O) Word: set-layout-font
(O) Word: (cache-font-description)
(O) Word: pango_font_description_set_weight
(U) Quotation: [
        63 special-object error-thread set-global
        continuation -> error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]
( scratchpad ) :s
T{ listener-gadget f ~array~ ~array~ f ~world~ ~vector~ ~array~...
T{ world f ~array~ ~array~ f f ~vector~ ~array~...
T{ layout f f f ~font~ " " f f f f f f }
" "
ALIEN: 258d010
{ "kernel-error" 3 0 f }
( scratchpad ) :r
{ }
T{ world f ~array~ ~array~ f f ~vector~ ~array~...
T{ world f ~array~ ~array~ f f ~vector~ ~array~...
T{ world f ~array~ ~array~ f f ~vector~ ~array~...
V{ ~listener-gadget~ ~label-control~ }
V{ ~array~ f }
V{ ~listener-gadget~ ~label-control~ }
V{ ~array~ f }
2
1
V{ ~array~ f }
1
T{ label-control f ~array~ ~array~ f ~world~ f ~array~ f t t f...
T{ cache-assoc f f f H{ } 10 }
{ ~font~ " " }
ALIEN: 258d010
H{ }
T{ font f "sans-serif" 12 f f f f }
T{ font f "sans-serif" 12 f f f f }
ALIEN: 2544790
( scratchpad )