19 lines
384 B
Factor
19 lines
384 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel math namespaces ;
|
|
IN: tools.deploy.test.7
|
|
|
|
SYMBOL: my-var
|
|
|
|
GENERIC: my-generic ( x -- b )
|
|
|
|
M: integer my-generic sq ;
|
|
|
|
M: fixnum my-generic call-next-method my-var get call( a -- b ) ;
|
|
|
|
: test-7 ( -- )
|
|
[ 1 + ] my-var set-global
|
|
12 my-generic 145 assert= ;
|
|
|
|
MAIN: test-7
|