basis/tools/deploy/test/7/7.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: kernel math namespaces ;
   4 IN: tools.deploy.test.7
   5
   6 SYMBOL: my-var
   7
   8 GENERIC: my-generic ( x -- b )
   9
  10 M: integer my-generic sq ;
  11
  12 M: fixnum my-generic call-next-method my-var get call( a -- b ) ;
  13
  14 : test-7 ( -- )
  15     [ 1 + ] my-var set-global
  16     12 my-generic 145 assert= ;
  17
  18 MAIN: test-7