2008-11-22 20:57:47 -05:00
|
|
|
! 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 ;
|
|
|
|
|
|
2009-04-15 20:03:44 -04:00
|
|
|
M: fixnum my-generic call-next-method my-var get call( a -- b ) ;
|
2008-11-22 20:57:47 -05:00
|
|
|
|
|
|
|
|
: test-7 ( -- )
|
|
|
|
|
[ 1 + ] my-var set-global
|
|
|
|
|
12 my-generic 145 assert= ;
|
|
|
|
|
|
|
|
|
|
MAIN: test-7
|
