; dummy dispatching ( scratchpad ) TUPLE: dummy ; ( scratchpad ) C: dummy ( scratchpad ) GENERIC# testpivot 1 ( str/n pivot str/n -- n+n ) ( scratchpad ) M: dummy testpivot [ drop ] dip dup string? [ string>number + ] [ swap string>number + ] if ; ( scratchpad ) "3" 4 testpivot --- Data stack: 7 ( scratchpad ) 3 "4" testpivot --- Data stack: 7 7