GENERIC: lambda-generic ( a b -- c )
-GENERIC# lambda-generic-1 1 ( a b -- c )
+GENERIC#: lambda-generic-1 1 ( a b -- c )
M:: integer lambda-generic-1 ( a b -- c ) a b * ;
M:: integer lambda-generic ( a b -- c ) a b lambda-generic-1 ;
-GENERIC# lambda-generic-2 1 ( a b -- c )
+GENERIC#: lambda-generic-2 1 ( a b -- c )
M:: integer lambda-generic-2 ( a b -- c )
a CHAR: x <string> b lambda-generic ;